diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index 082e232..e7077f5 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -28,7 +28,7 @@ Data::MessagePack is a binary packer for perl.
 
 =over 4
 
-=item $Data::MessagePack::PreferredInteger
+=item $Data::MessagePack::PreferInteger
 
 Pack the string as int when the value looks like int(EXPERIMENTAL).
 
diff --git a/perl/pack.c b/perl/pack.c
index aee3bd6..c2d871a 100644
--- a/perl/pack.c
+++ b/perl/pack.c
@@ -132,7 +132,7 @@ static void _msgpack_pack_sv(enc_t *enc, SV* val) {
             STRLEN len;
             char * cval = SvPV(val, len);
 
-            SV* pref_int = get_sv("Data::MessagePack::PreferredInteger", 0);
+            SV* pref_int = get_sv("Data::MessagePack::PreferInteger", 0);
             if (pref_int && SvTRUE(pref_int) && looks_like_int(cval, len) && SvUV(val) < U32_MAX) {
                 PACK_WRAPPER(uint32)(enc, SvUV(val));
                 return;
diff --git a/perl/t/05_preferred_int.t b/perl/t/05_preferred_int.t
index 39167c1..176430e 100644
--- a/perl/t/05_preferred_int.t
+++ b/perl/t/05_preferred_int.t
@@ -31,7 +31,7 @@ my @dat = (
 );
 plan tests => 1*(scalar(@dat)/2);
 
-$Data::MessagePack::PreferredInteger = 1;
+$Data::MessagePack::PreferInteger = 1;
 for (my $i=0; $i<scalar(@dat); ) {
     pis $dat[$i++], $dat[$i++];
 }