diff options
| author | Fuji, Goro <gfuji@cpan.org> | 2010-10-13 10:14:31 +0900 |
|---|---|---|
| committer | Fuji, Goro <gfuji@cpan.org> | 2010-10-13 10:14:31 +0900 |
| commit | 3761aacb1d4dbdaa922e024e5ae709a9037c06f3 (patch) | |
| tree | c7a9e7cb480d3ac2fc0fa0d0e4843a9521fde1be /perl/lib/Data | |
| parent | 233f13aac5ed328c82749930a7c8c42f7081af6c (diff) | |
| download | msgpack-python-3761aacb1d4dbdaa922e024e5ae709a9037c06f3.tar.gz | |
perl: cleanup PP
Diffstat (limited to 'perl/lib/Data')
| -rw-r--r-- | perl/lib/Data/MessagePack/PP.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl/lib/Data/MessagePack/PP.pm b/perl/lib/Data/MessagePack/PP.pm index 00e58b9..15ba22f 100644 --- a/perl/lib/Data/MessagePack/PP.pm +++ b/perl/lib/Data/MessagePack/PP.pm @@ -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; |