diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-11-01 13:14:16 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-11-01 23:05:07 +0000 |
| commit | 3cf5c1959ebd22791f34a1706083a3ce9aa50a39 (patch) | |
| tree | 538d117b94464e1c20b9a96fa0161ffca6ae896f /t | |
| parent | 14bdf8d3bfc4c68a9e0d4420c4db2eccd669ea5d (diff) | |
| download | perl-3cf5c1959ebd22791f34a1706083a3ce9aa50a39.tar.gz | |
Re: [ID 19991026.001] perl segmentation fault report
To: lvirden@cas.org (Larry W. Virden)
Cc: perl5-porters@perl.org, lvirden@cas.org
Message-Id: <199911012314.SAA22664@monk.mps.ohio-state.edu>
p4raw-id: //depot/cfgperl@4507
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index f36394edc2..5c564aa719 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -4,7 +4,7 @@ # the format supported by op/regexp.t. If you want to add a test # that does fit that format, add it to op/re_tests, not here. -print "1..193\n"; +print "1..194\n"; BEGIN { chdir 't' if -d 't'; @@ -893,3 +893,8 @@ pos($text)=0; $text =~ /\GXb*X/g and print 'not '; print "ok $test\n"; $test++; + +$text = "xA\n" x 500; +$text =~ /^\s*A/m and print 'not '; +print "ok $test\n"; +$test++; |