From 9346908485b30df552df6b5bc18337449347c471 Mon Sep 17 00:00:00 2001
From: "Fuji, Goro" <gfuji@cpan.org>
Date: Tue, 5 Oct 2010 15:55:38 +0900
Subject: [PATCH] perl: remove tricky hacks

---
 perl/lib/Data/MessagePack.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

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