diff options
author | Nicholas Clark <nick@ccl4.org> | 2009-04-09 19:25:37 +0100 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2009-04-09 19:25:37 +0100 |
commit | ee6d2783b2d78accfac54397826acf5f6e1715e1 (patch) | |
tree | e634f78b92c7e471938d549d9073c5a3078e251d /t/op/write.t | |
parent | 5a8cf367090fb5d83d8e8e0ae381a3525a215928 (diff) | |
download | perl-ee6d2783b2d78accfac54397826acf5f6e1715e1.tar.gz |
Don't SEGV while warning about redefining the format STDOUT. Fixes RT #64562.
Diffstat (limited to 't/op/write.t')
-rwxr-xr-x | t/op/write.t | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/t/op/write.t b/t/op/write.t index 429936c97b..07b5f73710 100755 --- a/t/op/write.t +++ b/t/op/write.t @@ -61,7 +61,7 @@ for my $tref ( @NumTests ){ my $bas_tests = 20; # number of tests in section 3 -my $bug_tests = 4 + 3 * 3 * 5 * 2 * 3 + 2; +my $bug_tests = 4 + 3 * 3 * 5 * 2 * 3 + 2 + 1; # number of tests in section 4 my $hmb_tests = 35; @@ -607,6 +607,23 @@ $= = 10; select $oldfh; close STDOUT_DUP; +fresh_perl_like(<<'EOP', qr/^Format STDOUT redefined at/, {stderr => 1}, '#64562 - Segmentation fault with redefined formats and warnings'); +#!./perl + +use strict; +use warnings; # crashes! + +format = +. + +write; + +format = +. + +write; +EOP + ############################# ## Section 4 ## Add new tests *above* here |