Re: [perl #23576] valgrind errors for /(?{})/ in t/op/pat.t

Message-ID: <20030919183544.GA14563@fdgroup.com>

p4raw-id: //depot/perl@21294

diff --git a/pp_ctl.c b/pp_ctl.c
index 3339548..9bacadb 100644 (file)
--- 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);