From: Adrian M. Enache <enache@rdslink.ro>
Date: Tue, 8 Jul 2003 20:47:58 +0000 (+0300)
Subject: Re: [PATCH] $^VARIABLES in 'perl -Dt' output
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6be89cf94680405f8f1461b8bee33f362ab7e905;p=p5sagit%2Fp5-mst-13.2.git

Re: [PATCH] $^VARIABLES in 'perl -Dt' output
Message-ID: <20030708174758.GA1177@ratsnest.hole>

(ByteLoader tweak avoiding a leaked scalar)

p4raw-id: //depot/perl@20076
---

diff --git a/op.c b/op.c
index 7bcf40b..70f5160 100644
--- a/op.c
+++ b/op.c
@@ -1829,8 +1829,11 @@ Perl_newPROG(pTHX_ OP *o)
 	CALL_PEEP(PL_eval_start);
     }
     else {
-	if (o->op_type == OP_STUB)
+	if (o->op_type == OP_STUB) {
+	    PL_comppad_name = 0;
+	    PL_compcv = 0;
 	    return;
+	}
 	PL_main_root = scope(sawparens(scalarvoid(o)));
 	PL_curcop = &PL_compiling;
 	PL_main_start = LINKLIST(PL_main_root);