perl: cleanup

This commit is contained in:
Fuji, Goro
2010-10-07 16:13:56 +09:00
parent f3ee5ab372
commit 8548b3645a

View File

@@ -8,13 +8,13 @@ our $PreferInteger = 0;
sub true () { sub true () {
require Data::MessagePack::Boolean; require Data::MessagePack::Boolean;
no warnings 'once', 'redefine'; no warnings 'once';
return $Data::MessagePack::Boolean::true; return $Data::MessagePack::Boolean::true;
} }
sub false () { sub false () {
require Data::MessagePack::Boolean; require Data::MessagePack::Boolean;
no warnings 'once', 'redefine'; no warnings 'once';
return $Data::MessagePack::Boolean::false; return $Data::MessagePack::Boolean::false;
} }