X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/5bdf89e7cb68a50d5bd016bfd0379b43445479df..d37908890678cc520478783c272a10631e81a5d0:/regexec.c

diff --git a/regexec.c b/regexec.c
index bcba723..d4e1fc4 100644
--- 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);