diff options
| -rw-r--r-- | regexec.c | 1 | ||||
| -rw-r--r-- | t/op/re_tests | 1 |
2 files changed, 2 insertions, 0 deletions
@@ -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 c83d742c19..ac7ef673e4 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] |