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 (file)
--- 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 (file)
--- 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]