Message-ID: <Pine.LNX.4.21.
0105171544270.9064-100000@marmot.rim.canoe.ca>
p4raw-id: //depot/perl@10149
# coredump in 5.7.1
close STDERR; die;
EXPECT
+########
+# Bug 20010515.004
+my @h = 1 .. 10;
+bad(@h);
+sub bad {
+ undef @h;
+ print "O";
+ print for @_;
+ print "K";
+}
+EXPECT
+OK