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: cleanup PP

Browse source
This commit is contained in:
Fuji, Goro 2010-10-13 10:14:31 +09:00
parent 233f13aac5
commit 3761aacb1d
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
perl/lib/Data/MessagePack/PP.pm
View file

@ -265,7 +265,7 @@ sub _unpack {
my ( $value ) = @_;
my $byte = CORE::unpack( 'C', substr( $value, $p++, 1 ) ); # get header
die "invalid data" unless defined $byte;
Carp::croak("invalid data") unless defined $byte;
if ( ( $byte >= 0x90 and $byte <= 0x9f ) or $byte == 0xdc or $byte == 0xdd ) {
my $num;
@ -312,7 +312,7 @@ sub _unpack {
return $byte;
}
elsif ( $byte == 0xcc ) { # uint8
CORE::unpack( 'C', substr( $value, $p++, 1 ) );
return CORE::unpack( 'C', substr( $value, $p++, 1 ) );
}
elsif ( $byte == 0xcd ) { # uint16
$p += 2;