Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-07 10:19:51 +00:00
Code Issues Projects Releases Packages 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
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