diff options
| author | Benjamin Sugars <bsugars@canoe.ca> | 2001-05-17 11:48:18 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-05-17 20:08:58 +0000 |
| commit | dba9804b7300df4006583cce1be339d524596cd9 (patch) | |
| tree | 2eb46f2acdf01dfb7ccc40090a050e98d6e1e5b7 /t | |
| parent | d42935ef34d556a685dfe8f03d2f6053a0b554ee (diff) | |
| download | perl-dba9804b7300df4006583cce1be339d524596cd9.tar.gz | |
Test for bug 20010515.004
Message-ID: <Pine.LNX.4.21.0105171544270.9064-100000@marmot.rim.canoe.ca>
p4raw-id: //depot/perl@10149
Diffstat (limited to '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 |