Stowage/msgpack-python
2
0
Fork 0
mirror of https://github.com/msgpack/msgpack-python.git synced 2026-02-06 17:59:52 +00:00
Code Issues Projects Releases Packages 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
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 {
my ( $value ) = @_;
# 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++;
Carp::croak("invalid data") unless defined $byte;
# +/- fixnum, nil, true, false
return $byte2value[$byte] if $typemap[$byte] & $T_DIRECT;