From 7a1c55545340734b4c7e5b94b34d2b199bf3e739 Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 8 Nov 1999 04:17:28 +0000
Subject: tweak change#4502

p4raw-link: @4502 on //depot/perl: 18708f5a7334d978ddf7562cb7f58e28bec6e4ed

p4raw-id: //depot/perl@4535
---
 perl.c | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index 6e907eb822..929fef1c5f 100644
--- a/perl.c
+++ b/perl.c
@@ -454,6 +454,8 @@ perl_destruct(pTHXx)
 
     /* reset so print() ends up where we expect */
     setdefout(Nullgv);
+    SvREFCNT_dec(PL_argvout_stack);
+    PL_argvout_stack = Nullav;
 
     /* Prepare to destruct main symbol table.  */
 
@@ -2771,7 +2773,6 @@ S_init_postdump_symbols(pTHX_ register int argc, register char **argv, register
 	for (; argc > 0; argc--,argv++) {
 	    av_push(GvAVn(PL_argvgv),newSVpv(argv[0],0));
 	}
-	PL_argvout_stack = newAV();
     }
     if (PL_envgv = gv_fetchpv("ENV",TRUE, SVt_PVHV)) {
 	HV *hv;
-- 
cgit v1.2.1