This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: problem with (?p{}) [PATCH 5.005_5*]
[perl5.git] / regexec.c
index bcba723..d4e1fc4 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -1671,6 +1671,7 @@ regmatch(regnode *prog)
                    PL_reg_call_cc = state.prev;
                    PL_regcc = state.cc;
                    PL_reg_re = state.re;
+                   cache_re(PL_reg_re);
                    sayNO;
                }
                sw = SvTRUE(ret);