Re: problem with (?p{}) [PATCH 5.005_5*]

[perl5.git] / regexec.c

diff --git a/regexec.c b/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;
                    PL_reg_call_cc = state.prev;
                    PL_regcc = state.cc;
                    PL_reg_re = state.re;

+                   cache_re(PL_reg_re);

                    sayNO;
                }
                sw = SvTRUE(ret);
                    sayNO;
                }
                sw = SvTRUE(ret);