# use strict;
-print "1..30\n";
+print "1..32\n";
my $test = 1;
{
no warnings 'uninitialized';
- my $x, $y;
+ my ($x, $y);
eval {
$y ="$x\n";
++$x;
ok($x == 1, $x);
ok($@ eq '', $@);
- my $p, $q;
+ my ($p, $q);
eval {
$q ="$p\n";
--$p;
ok($p == -1, $p);
ok($@ eq '', $@);
}
+
+$a = 2147483648;
+$c=--$a;
+ok ($a == 2147483647, $a);
+
+
+$a = 2147483648;
+$c=$a--;
+ok ($a == 2147483647, $a);