summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorFuji, Goro <gfuji@cpan.org>2010-10-30 13:04:30 +0900
committerFuji, Goro <gfuji@cpan.org>2010-10-30 13:04:30 +0900
commitb4ae6bf82c8bcd6012c805a2206fcb81ad39dd0b (patch)
tree1b0e8613e58317ca77946892cbbac4fe1efb2da7
parenteac0f838645f4f1bedf0a66c92cd19339a5490b8 (diff)
downloadmsgpack-python-b4ae6bf82c8bcd6012c805a2206fcb81ad39dd0b.tar.gz
perl: disable warnings
-rw-r--r--perl/lib/Data/MessagePack/PP.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl/lib/Data/MessagePack/PP.pm b/perl/lib/Data/MessagePack/PP.pm
index fca73b8..f179ad7 100644
--- a/perl/lib/Data/MessagePack/PP.pm
+++ b/perl/lib/Data/MessagePack/PP.pm
@@ -480,6 +480,7 @@ sub execute {
sub _count {
my ( $self, $value ) = @_;
+ no warnings; # FIXME
my $byte = unpack( 'C', substr( $value, $p++, 1 ) ); # get header
Carp::croak('invalid data') unless defined $byte;