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

perl: ord(substr(...)) *is* faster than unpack()

Browse Source
This commit is contained in:
Fuji, Goro 2010-10-30 00:42:00 +09:00
parent 6a9cb51828
commit 5de2b974fb
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -304,12 +304,12 @@ foreach my $pair(
sub _unpack {
my ( $value ) = @_;
# get a header byte
defined(my $byte = unpack "x$p C", $value)
$p < length($value)
or Carp::confess("Data::MessagePack->unpack: insufficient bytes");
# get a header byte
my $byte = ord( substr $value, $p, 1 );
$p++;
# +/- fixnum, nil, true, false
return $byte2value[$byte] if $typemap[$byte] & $T_DIRECT;
@ -454,6 +454,9 @@ sub execute {
$self->{buff} .= $value;
local $self->{stack} = [];
#$p = 0;
#eval { Data::MessagePack::PP::_unpack($self->{buff}) };
#warn "[$p][$@]";
$p = 0;
while ( length($self->{buff}) > $p ) {