- my $value_block = unpack 'x4Lx8', $block;
- my $positive = $value_block & 0x8000_0000;
- my $value = $value_block & 0x7fff_ffff;
- $value = -$value if ! $positive;
+ my ( $value_block, $not ) = unpack 'llx8', $block;
+ my $value = $value_block;
+# my $positive = $value_block & 0x8000_0000;
+# my $value = $value_block & 0x7fff_ffff;
+# $value = -$value if ! $positive;