generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-21 23:56:55 +02:00
Code Issues Projects Releases 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 ( $value ) = @_;
my $byte = CORE::unpack( 'C', substr( $value, $p++, 1 ) ); # get header 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 ) { if ( ( $byte >= 0x90 and $byte <= 0x9f ) or $byte == 0xdc or $byte == 0xdd ) {
my $num; my $num;
@@ -312,7 +312,7 @@ sub _unpack {
return $byte; return $byte;
} }
elsif ( $byte == 0xcc ) { # uint8 elsif ( $byte == 0xcc ) { # uint8
CORE::unpack( 'C', substr( $value, $p++, 1 ) ); return CORE::unpack( 'C', substr( $value, $p++, 1 ) );
} }
elsif ( $byte == 0xcd ) { # uint16 elsif ( $byte == 0xcd ) { # uint16
$p += 2; $p += 2;