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

Merge branch 'master' of github.com:msgpack/msgpack

Browse Source
This commit is contained in:
tokuhirom 2010-09-22 15:09:03 +09:00
commit f6d2cd7704
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -103,8 +103,8 @@ BEGIN {
*unpack_float = sub { return unpack( 'f', substr( $_[0], $_[1], 4 ) ); }; *unpack_float = sub { return unpack( 'f', substr( $_[0], $_[1], 4 ) ); };
*unpack_double = sub { return unpack( 'd', substr( $_[0], $_[1], 8 ) ); }; *unpack_double = sub { return unpack( 'd', substr( $_[0], $_[1], 8 ) ); };
*unpack_int64 = $unpack_int64_slow || sub { pack 'q', substr( $_[0], $_[1], 8 ); }; *unpack_int64 = $unpack_int64_slow || sub { unpack 'q', substr( $_[0], $_[1], 8 ); };
*unpack_uint64 = $unpack_uint64_slow || sub { pack 'Q', substr( $_[0], $_[1], 8 ); }; *unpack_uint64 = $unpack_uint64_slow || sub { unpack 'Q', substr( $_[0], $_[1], 8 ); };
} }
} }
else { else {
@ -419,7 +419,7 @@ sub execute {
$p = 0; $p = 0;
LOOP: while ( length($self->{data}) > $p ) { while ( length($self->{data}) > $p ) {
_count( $self, $self->{data} ) or last; _count( $self, $self->{data} ) or last;
while ( @{ $self->{stack} } > 0 && --$self->{stack}->[-1] == 0) { while ( @{ $self->{stack} } > 0 && --$self->{stack}->[-1] == 0) {
@ -428,7 +428,7 @@ sub execute {
if (@{$self->{stack}} == 0) { if (@{$self->{stack}} == 0) {
$self->{is_finished}++; $self->{is_finished}++;
last LOOP; last;
} }
} }
$self->{pos} = $p; $self->{pos} = $p;
@ -455,7 +455,7 @@ sub _count {
$num = $byte & ~0x90; $num = $byte & ~0x90;
} }
if (defined($num) && $num > 0) { if ( $num ) {
push @{ $self->{stack} }, $num + 1; push @{ $self->{stack} }, $num + 1;
} }
@ -476,7 +476,7 @@ sub _count {
$num = $byte & ~0x80; $num = $byte & ~0x80;
} }
if ($num > 0) { if ( $num ) {
push @{ $self->{stack} }, $num * 2 + 1; # a pair push @{ $self->{stack} }, $num * 2 + 1; # a pair
} }