diff options
| author | SADAHIRO Tomoyuki <BQW10602@nifty.com> | 2005-11-09 08:36:13 +0900 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2005-11-08 14:24:39 +0000 |
| commit | 1937c63eabbbeefba39986529a3c98e62f3dcab4 (patch) | |
| tree | cc8ddcac4c20026bce84a6b89d030cc98b9a616e /t/op/chop.t | |
| parent | b813a9c76fb5a2c2746163c915471a644deef028 (diff) | |
| download | perl-1937c63eabbbeefba39986529a3c98e62f3dcab4.tar.gz | |
Re: A surprising segfault
Message-Id: <20051108233535.735D.BQW10602@nifty.com>
p4raw-id: //depot/perl@26045
Diffstat (limited to 't/op/chop.t')
| -rwxr-xr-x | t/op/chop.t | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/t/op/chop.t b/t/op/chop.t index a77ff30b6c..b0308b0902 100755 --- a/t/op/chop.t +++ b/t/op/chop.t @@ -6,7 +6,7 @@ BEGIN { require './test.pl'; } -plan tests => 137; +plan tests => 139; $_ = 'abc'; $c = do foo(); @@ -232,3 +232,14 @@ foreach my $start (@chars) { is($asc, "perl", "chopped ascii NUL"); is($utf, "perl", "chopped utf8 NUL"); } + +{ + # Change 26011: Re: A surprising segfault + # to make sure only that these obfuscated sentences will not crash. + + map chop(+()), ('')x68; + ok(1, "extend sp in pp_chop"); + + map chomp(+()), ('')x68; + ok(1, "extend sp in pp_chomp"); +} |