From: Dave Mitchell <davem@fdisolutions.com>
Date: Fri, 19 Sep 2003 19:35:44 +0000 (+0100)
Subject: Re: [perl #23576] valgrind errors for /(?{})/ in t/op/pat.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f120105df5a639f1ff2bfd3294f7ac263449621f;p=p5sagit%2Fp5-mst-13.2.git

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