generic-library/msgpack
1
0
Fork 0
mirror of https://github.com/msgpack/msgpack-c.git synced 2025-10-21 23:56:55 +02:00
Code Issues Projects Releases Wiki Activity

Revert "SVs with POK and IOK/NOK should be packed as numbers, not strings"

Browse Source 
This reverts commit 28f4338a6c.
This commit is contained in:
Fuji, Goro
2011-08-07 18:51:16 +09:00
parent ba7183a5b4
commit 8acabaa135
3 changed files with 18 additions and 38 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -211,9 +211,6 @@ sub _pack {
}
}
elsif ( $flags & ( B::SVf_NOK | B::SVp_NOK ) ) { # double only
return pack_double( $value );
}
elsif ( $flags & B::SVf_POK ) { # raw / check needs before dboule
if ( $Data::MessagePack::PreferInteger ) {
@@ -245,6 +242,9 @@ sub _pack {
return $header . $value;
}
elsif ( $flags & ( B::SVf_NOK | B::SVp_NOK ) ) { # double only
return pack_double( $value );
}
else {
_unexpected("data type %s", $b_obj);
}