diff options
Diffstat (limited to 't/op/misc.t')
| -rwxr-xr-x | t/op/misc.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 8c45342cac..885fad4ee5 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 |