From f120105df5a639f1ff2bfd3294f7ac263449621f Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Fri, 19 Sep 2003 20:35:44 +0100 Subject: [PATCH] Re: [perl #23576] valgrind errors for /(?{})/ in t/op/pat.t Message-ID: <20030919183544.GA14563@fdgroup.com> p4raw-id: //depot/perl@21294 --- pp_ctl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/pp_ctl.c b/pp_ctl.c index 3339548..9bacadb 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -2710,7 +2710,7 @@ Perl_sv_compile_2op(pTHX_ SV *sv, OP** startop, char *code, PAD** padp) PL_hints &= HINT_UTF8; /* we get here either during compilation, or via pp_regcomp at runtime */ - runtime = PL_op && (PL_op->op_type == OP_REGCOMP); + runtime = (PL_curcop != &PL_compiling); if (runtime) runcv = find_runcv(NULL); -- 2.7.4