From: Ilya Zakharevich <ilya@math.berkeley.edu>
Date: Mon, 31 Aug 1998 14:52:10 +0000 (-0400)
Subject: (?>) broken in RE
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9fe1d20ca4c3d9b963b1df956fdf16ba3efc34f6;p=p5sagit%2Fp5-mst-13.2.git

(?>) broken in RE

	Message-Id: <199808311852.OAA24676@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1828
---

diff --git a/regexec.c b/regexec.c
index 2bbe487..bcba723 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2245,6 +2245,7 @@ regmatch(regnode *prog)
 	    sayYES;			/* Success! */
 	case SUSPEND:
 	    n = 1;
+	    PL_reginput = locinput;
 	    goto do_ifmatch;	    
 	case UNLESSM:
 	    n = 0;
diff --git a/t/op/re_tests b/t/op/re_tests
index 8bd175d..1dca4f0 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -489,3 +489,4 @@ b\z	a\nb	y	-	-
 (^|x)(c)	ca	y	$2	c
 a*abc?xyz+pqr{3}ab{2,}xy{4,5}pq{0,6}AB{0,}zz	x	n	-	-
 a(?{$a=2;$b=3;($b)=$a})b	yabz	y	$b	2
+round\(((?>[^()]+))\)	_I(round(xs * sz),1)	y	$1	xs * sz