#
# -- .robin. <robin@kitsite.com> 2001-03-13
-print "1..46\n";
+print "1..47\n";
my $ok;
}
}
+
+{
+ # [perl #37725]
+
+ $a37725[3] = 1; # use package var
+ $i = 2;
+ for my $x (reverse @a37725) {
+ $x = $i++;
+ }
+ print "@a37725" == "5 4 3 2" ? "" : "not ",
+ "ok 47 - reverse with empty slots (@a37725)\n";
+}
+