generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-04-01 09:24:51 +02:00
Code Issues Projects Releases Wiki Activity

perl: remove tricky hacks

Browse Source
This commit is contained in:
Fuji, Goro 2010-10-05 15:55:38 +09:00
parent b3a7ba14f7
commit 9346908485
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
perl/lib/Data/MessagePack.pm
View File

@ -9,17 +9,13 @@ our $PreferInteger = 0;
sub true () { sub true () {
require Data::MessagePack::Boolean; require Data::MessagePack::Boolean;
no warnings 'once', 'redefine'; no warnings 'once', 'redefine';
my $t = $Data::MessagePack::Boolean::true; return $Data::MessagePack::Boolean::true;
*true = sub (){ $t };
return $t;
} }
sub false () { sub false () {
require Data::MessagePack::Boolean; require Data::MessagePack::Boolean;
no warnings 'once', 'redefine'; no warnings 'once', 'redefine';
my $f = $Data::MessagePack::Boolean::false; return $Data::MessagePack::Boolean::false;
*false = sub (){ $f };
return $f;
} }
if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate if ( !__PACKAGE__->can('pack') ) { # this idea comes from Text::Xslate