mirror of
https://github.com/msgpack/msgpack-c.git
synced 2025-10-21 23:56:55 +02:00
added some comments in Data::MessagePack::PP
This commit is contained in:
@@ -22,7 +22,10 @@ use B ();
|
|||||||
BEGIN {
|
BEGIN {
|
||||||
# for pack and unpack compatibility
|
# for pack and unpack compatibility
|
||||||
if ( $] < 5.010 ) {
|
if ( $] < 5.010 ) {
|
||||||
|
# require $Config{byteorder}; my $bo_is_le = ( $Config{byteorder} =~ /^1234/ );
|
||||||
|
# which better?
|
||||||
my $bo_is_le = unpack ( 'd', "\x00\x00\x00\x00\x00\x00\xf0\x3f") == 1; # 1.0LE
|
my $bo_is_le = unpack ( 'd', "\x00\x00\x00\x00\x00\x00\xf0\x3f") == 1; # 1.0LE
|
||||||
|
# In really, since 5.9.2 '>' is introduced.
|
||||||
*pack_double = $bo_is_le ? sub {
|
*pack_double = $bo_is_le ? sub {
|
||||||
my @v = unpack( 'V2', pack( 'd', $_[0] ) );
|
my @v = unpack( 'V2', pack( 'd', $_[0] ) );
|
||||||
return pack 'CN2', 0xcb, @v[1,0];
|
return pack 'CN2', 0xcb, @v[1,0];
|
||||||
|
Reference in New Issue
Block a user