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*]
authorIlya Zakharevich <ilya@math.berkeley.edu>
Tue, 25 Aug 1998 15:35:58 +0000 (11:35 -0400)
committerGurusamy Sarathy <gsar@cpan.org>
Thu, 24 Sep 1998 08:47:47 +0000 (08:47 +0000)
Message-Id: <199808251935.PAA11384@monk.mps.ohio-state.edu>

p4raw-id: //depot/perl@1875

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);