From 18708f5a7334d978ddf7562cb7f58e28bec6e4ed Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 31 Oct 1999 20:46:02 +0000
Subject: make nested ARGV/$^I loops work correctly; fixes several bugs in the
 way ARGV state was handled in readline(); writing a subroutine to do inplace
 edits is now possible, provided *ARGV, *ARGVOUT, $^I and $_ are localized
 where needed

p4raw-id: //depot/perl@4502
---
 perl.c | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl.c')

diff --git a/perl.c b/perl.c
index 8324d52657..a35cdd783a 100644
--- a/perl.c
+++ b/perl.c
@@ -2767,6 +2767,7 @@ 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