generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-27 00:35:18 +01: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 () {
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