diff options
| author | Inaba Hiroto <inaba@st.rim.or.jp> | 2003-03-22 02:35:21 +0900 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-04-14 20:48:02 +0000 |
| commit | 7ef91622a9e34f97a4166311297799ae9bd8c402 (patch) | |
| tree | 3bedc22c46f86e85c58f934ae06459e6533dcbcc /t | |
| parent | e76300d6a3eeeae9f529c5a2d89e531c688df885 (diff) | |
| download | perl-7ef91622a9e34f97a4166311297799ae9bd8c402.tar.gz | |
Re: Parse::RecDescent triggers infinete loop in perl5.9.0 and 5.8.1 [perl #17757]
Date: Fri, 21 Mar 2003 17:35:21 +0900
Message-ID: <3E7ACEC8.E0D57221@st.rim.or.jp>
Date: Sat, 22 Mar 2003 11:28:05 +0900
Message-ID: <3E7BCA34.6824269F@st.rim.or.jp>
p4raw-id: //depot/perl@19210
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/pat.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/t/op/pat.t b/t/op/pat.t index 16a38202dd..26e859435f 100755 --- a/t/op/pat.t +++ b/t/op/pat.t @@ -6,7 +6,7 @@ $| = 1; -print "1..996\n"; +print "1..997\n"; BEGIN { chdir 't' if -d 't'; @@ -3159,4 +3159,11 @@ ok("bbbbac" =~ /$pattern/ && $1 eq 'a', "[perl #3547]"); ok(join(":", /\b(.)\x{100}/g) eq "a:/", "re_intuit_start and PL_bostr"); } -# last test 996 +{ + $_ = "code: 'x' { '...' }\n"; study; + my @x; push @x, $& while m/'[^\']*'/gx; + ok(join(":", @x) eq "'x':'...'", + "[perl #17757] Parse::RecDescent triggers infinite loop"); +} + +# last test 997 |