From 7ef91622a9e34f97a4166311297799ae9bd8c402 Mon Sep 17 00:00:00 2001
From: Inaba Hiroto <inaba@st.rim.or.jp>
Date: Sat, 22 Mar 2003 02:35:21 +0900
Subject: 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
---
 t/op/pat.t | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

(limited to 't')

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
-- 
cgit v1.2.1