diff --git a/perl/lib/Data/MessagePack.pm b/perl/lib/Data/MessagePack.pm
index 1fccbf75..7d1bda78 100644
--- a/perl/lib/Data/MessagePack.pm
+++ b/perl/lib/Data/MessagePack.pm
@@ -9,17 +9,13 @@ our $PreferInteger = 0;
 sub true () {
     require Data::MessagePack::Boolean;
     no warnings 'once', 'redefine';
-    my $t = $Data::MessagePack::Boolean::true;
-    *true = sub (){ $t };
-    return $t;
+    return $Data::MessagePack::Boolean::true;
 }
 
 sub false () {
     require Data::MessagePack::Boolean;
     no warnings 'once', 'redefine';
-    my $f = $Data::MessagePack::Boolean::false;
-    *false = sub (){ $f };
-    return $f;
+    return $Data::MessagePack::Boolean::false;
 }
 
 if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate