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

1 files changed, 1 insertions, 0 deletions

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;