BEGIN {
eval { my $q = pack "q", 0 };
if ($@) {
- print "1..0\n# Skip: no 64-bit types\n";
+ print "1..0 # Skip: no 64-bit types\n";
exit(0);
}
chdir 't' if -d 't';
print "ok 28\n";
$a = -9223372036854775808;
- $c = $a--;
+ {
+ no warnings 'imprecision';
+ $c = $a--;
+ }
print "not "
unless $a == -9223372036854775809 && $c == -9223372036854775808;
print "ok 29\n";
$a = -9223372036854775808;
- $c = --$a;
+ {
+ no warnings 'imprecision';
+ $c = --$a;
+ }
print "not "
unless $a == -9223372036854775809 && $c == $a;
print "ok 30\n";
$a = 9223372036854775808;
$a = -$a;
- $c = $a--;
+ {
+ no warnings 'imprecision';
+ $c = $a--;
+ }
print "not "
unless $a == -9223372036854775809 && $c == -9223372036854775808;
print "ok 32\n";
$a = 9223372036854775808;
$a = -$a;
- $c = --$a;
+ {
+ no warnings 'imprecision';
+ $c = --$a;
+ }
print "not "
unless $a == -9223372036854775809 && $c == $a;
print "ok 33\n";
$a = 9223372036854775808;
$b = -$a;
- $c = $b--;
+ {
+ no warnings 'imprecision';
+ $c = $b--;
+ }
print "not "
unless $b == -$a-1 && $c == -$a;
print "ok 35\n";
$a = 9223372036854775808;
$b = -$a;
- $c = --$b;
+ {
+ no warnings 'imprecision';
+ $c = --$b;
+ }
print "not "
unless $b == -$a-1 && $c == $b;
print "ok 36\n";