Change 11676 by jhi@alpha on 2001/08/15 12:25:29
Subject: Re: [ID 20010811.006] re_eval: logical leaks
From: Hugo van der Sanden <[EMAIL PROTECTED]>
Date: Wed, 15 Aug 2001 10:33:49 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/regexec.c#180 edit
... //depot/perl/t/op/re_tests#63 edit
Differences ...
==== //depot/perl/regexec.c#180 (text) ====
Index: perl/regexec.c
--- perl/regexec.c.~1~ Wed Aug 15 06:30:05 2001
+++ perl/regexec.c Wed Aug 15 06:30:05 2001
@@ -2625,6 +2625,7 @@
/* XXXX This is too dramatic a measure... */
PL_reg_maxiter = 0;
+ logical = 0;
sayNO;
}
sw = SvTRUE(ret);
==== //depot/perl/t/op/re_tests#63 (text) ====
Index: perl/t/op/re_tests
--- perl/t/op/re_tests.~1~ Wed Aug 15 06:30:05 2001
+++ perl/t/op/re_tests Wed Aug 15 06:30:05 2001
@@ -789,3 +789,4 @@
(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]
End of Patch.
