diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-21 03:54:11 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-12-21 03:54:11 +0000 |
| commit | 7ef822cddfe985045cd287429915d6f6aecd27c9 (patch) | |
| tree | abc607246b270b6b5758ed601238984e0a6efe80 /t | |
| parent | c998f3c7edf5c8e96067437acbd36abfa8cafa7c (diff) | |
| download | perl-7ef822cddfe985045cd287429915d6f6aecd27c9.tar.gz | |
Fix for 20001210.003, "write(FH) on closed FH causes segv".
p4raw-id: //depot/perl@8214
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/misc.t | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/t/op/misc.t b/t/op/misc.t index 0db36c9d85..805a32bc9a 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -600,3 +600,20 @@ die qr(x) EXPECT (?-xism:x) at - line 1. ######## +# 20001210.003 mjd@plover.com +format REMITOUT_TOP = +FOO +. + +format REMITOUT = +BAR +. + +# This loop causes a segv in 5.6.0 +for $lineno (1..61) { + write REMITOUT; +} + +print "It's OK!"; +EXPECT +It's OK! |