From: Benjamin Sugars <bsugars@canoe.ca>
Date: Thu, 17 May 2001 15:48:18 +0000 (-0400)
Subject: Test for bug 20010515.004
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dba9804b7300df4006583cce1be339d524596cd9;p=p5sagit%2Fp5-mst-13.2.git

Test for bug 20010515.004
Message-ID: <Pine.LNX.4.21.0105171544270.9064-100000@marmot.rim.canoe.ca>

p4raw-id: //depot/perl@10149
---

diff --git a/t/op/misc.t b/t/op/misc.t
index 8c45342..885fad4 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -660,3 +660,15 @@ new_pmop "abcdef"; reset;
 # 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