generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-03-23 09:14:00 +01:00
Code Issues Projects Releases Wiki Activity

perl: make error messages compatible with XS

Browse Source
This commit is contained in:
Fuji, Goro 2010-10-30 00:28:53 +09:00
parent c320e44a23
commit f1c294ca50
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -305,10 +305,10 @@ foreach my $pair(
sub _unpack { sub _unpack {
my ( $value ) = @_; my ( $value ) = @_;
# get a header byte # get a header byte
my $byte = unpack "x$p C", $value; # "x$p" is faster than substr() defined(my $byte = unpack "x$p C", $value)
or Carp::confess("Data::MessagePack->unpack: insufficient bytes");
$p++; $p++;
Carp::croak("invalid data") unless defined $byte;
# +/- fixnum, nil, true, false # +/- fixnum, nil, true, false
return $byte2value[$byte] if $typemap[$byte] & $T_DIRECT; return $byte2value[$byte] if $typemap[$byte] & $T_DIRECT;