generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-23 08:31:45 +02:00
Code Issues Projects Releases Wiki Activity

perl: disable warnings

Browse Source
This commit is contained in:
Fuji, Goro
2010-10-30 13:04:30 +09:00
parent eac0f83864
commit b4ae6bf82c
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
perl/lib/Data/MessagePack/PP.pm
View File

@@ -480,6 +480,7 @@ sub execute {
sub _count { sub _count {
my ( $self, $value ) = @_; my ( $self, $value ) = @_;
no warnings; # FIXME
my $byte = unpack( 'C', substr( $value, $p++, 1 ) ); # get header my $byte = unpack( 'C', substr( $value, $p++, 1 ) ); # get header
Carp::croak('invalid data') unless defined $byte; Carp::croak('invalid data') unless defined $byte;