Change 20076: Re: [PATCH] $^VARIABLES in 'perl -Dt' output

[Jarkko Hietaniemi]

Change 20076 by [EMAIL PROTECTED] on 2003/07/08 17:39:49

        Subject: Re: [PATCH] $^VARIABLES in 'perl -Dt' output
        From: Enache Adrian <[EMAIL PROTECTED]>
        Date: Tue, 8 Jul 2003 20:47:58 +0300
        Message-ID: <[EMAIL PROTECTED]>
        
        (ByteLoader tweak avoiding a leaked scalar)

Affected files ...

... //depot/perl/op.c#576 edit

Differences ...

==== //depot/perl/op.c#576 (text) ====
Index: perl/op.c
--- perl/op.c#575~20068~        Tue Jul  8 01:36:27 2003
+++ perl/op.c   Tue Jul  8 10:39:49 2003
@@ -1829,8 +1829,11 @@
        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);
End of Patch.