diff options
| author | Tony Cook <tony@develop-help.com> | 2015-01-19 16:03:18 +1100 |
|---|---|---|
| committer | Tony Cook <tony@develop-help.com> | 2015-01-19 16:03:18 +1100 |
| commit | 62db6ea5fed19611596cbc5fc0b8a4df2c604e58 (patch) | |
| tree | 20a94b2e1cdf5a01be8a7ec951c7869c366b0025 /t | |
| parent | e3e8f263bd1cf5bb33710bdece3b572dd9785f75 (diff) | |
| download | perl-62db6ea5fed19611596cbc5fc0b8a4df2c604e58.tar.gz | |
[perl #123538] always set chophere and itembytes at the same time
Previously this would crash in FF_MORE because chophere was still
NULL.
Diffstat (limited to 't')
| -rw-r--r-- | t/op/write.t | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/t/op/write.t b/t/op/write.t index 4b130575b5..590d6581eb 100644 --- a/t/op/write.t +++ b/t/op/write.t @@ -98,7 +98,7 @@ for my $tref ( @NumTests ){ my $bas_tests = 21; # number of tests in section 3 -my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 4 + 2 + 3 + 96 + 11 + 2; +my $bug_tests = 66 + 3 * 3 * 5 * 2 * 3 + 2 + 66 + 4 + 2 + 3 + 96 + 11 + 3; # number of tests in section 4 my $hmb_tests = 37; @@ -1960,6 +1960,18 @@ dd| EXPECT { stderr => 1 }, '#123245 different panic in sv_chop'); +fresh_perl_is(<<'EOP', <<'EXPECT', +format STDOUT = +# x at the end to make the spaces visible +@... x +q/a/ +. +write; +EOP +a x +EXPECT + { stderr => 1 }, '#123538 crash in FF_MORE'); + ############################# ## Section 4 ## Add new tests *above* here |