diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-09-14 17:26:15 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-09-15 01:27:14 +0000 |
| commit | 30944b6df13d14ca352a3fdf86275e7fe6eb44b5 (patch) | |
| tree | e6ac953b70d95e3c03ff2c17c7fb0b5f17e9e051 /t | |
| parent | b2a6d19e98284617a5c52d0100279680e6cc4fc8 (diff) | |
| download | perl-30944b6df13d14ca352a3fdf86275e7fe6eb44b5.tar.gz | |
Re: [ID 19990914.001] Perl_re_intuit_start() hangs in a loop
Message-Id: <199909150126.VAA24720@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@4158
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 768d1b9446..89cc2bb0a9 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..191\n"; +print "1..192\n"; BEGIN { chdir 't' if -d 't'; @@ -882,3 +882,8 @@ print "not " unless $1 eq "{ and }"; print "ok $test\n"; $test++; +$_ = "a-a\nxbb"; +pos=1; +m/^-.*bb/mg and print "not "; +print "ok $test\n"; +$test++; |