perl: modified a serious code typo in PP

This commit is contained in:
makamaka 2010-09-20 11:49:52 +09:00
parent 53899cc492
commit d973192b5e

View File

@ -87,7 +87,7 @@ BEGIN {
return unpack( 'd', pack( 'N2', @v[1,0] ) );
};
*unpack_int64 = $unpack_int64_slow ||_sub {
*unpack_int64 = $unpack_int64_slow || sub {
my @v = unpack( 'V*', substr( $_[0], $_[1], 8 ) );
return unpack( 'q', pack( 'N2', @v[1,0] ) );
};