From: Hugo van der Sanden <hv@crypt.org>
Date: Wed, 15 Aug 2001 10:33:49 +0000 (+0100)
Subject: Re: [ID 20010811.006] re_eval: logical leaks
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8e514ae641772eeb6e8f06069ce47f26ef1fcf57;p=p5sagit%2Fp5-mst-13.2.git

Re: [ID 20010811.006] re_eval: logical leaks
Message-Id: <200108150933.f7F9Xnr11222@crypt.compulink.co.uk>

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

diff --git a/regexec.c b/regexec.c
index 0e690de..e95bd16 100644
--- a/regexec.c
+++ b/regexec.c
@@ -2625,6 +2625,7 @@ S_regmatch(pTHX_ regnode *prog)
 		    /* XXXX This is too dramatic a measure... */
 		    PL_reg_maxiter = 0;
 
+		    logical = 0;
 		    sayNO;
 		}
 		sw = SvTRUE(ret);
diff --git a/t/op/re_tests b/t/op/re_tests
index c83d742..ac7ef67 100644
--- a/t/op/re_tests
+++ b/t/op/re_tests
@@ -789,3 +789,4 @@ tt+$	xxxtt	y	-	-
 (abc)?(abc)+	abc	y	$1:$2	:abc	-
 'b\s^'m	a\nb\n	n	-	-
 \ba	a	y	-	-
+^(a(??{"(?!)"})|(a)(?{1}))b	ab	y	$2	a	# [ID 20010811.006]