[win32] merge changes#982,984 from maintbranch

p4raw-link: @984 on //depot/maint-5.004/perl: aaffd3c27a04135bbc287616252cc5830b7c5543
p4raw-link: @982 on //depot/maint-5.004/perl: c5ed518aab0e5c6006080a87273e79a1b8e0d48b

p4raw-id: //depot/win32/perl@997

1 files changed, 3 insertions, 0 deletions

diff --git a/perl.c b/perl.c
index f4338b165e..dbe06dd933 100644
--- a/perl.c
+++ b/perl.c
@@ -937,6 +937,9 @@ print \"  \\@INC:\\n    @INC\\n\";");
 #endif
 
     init_predump_symbols();
+    /* init_postdump_symbols not currently designed to be called */
+    /* more than once (ENV isn't cleared first, for example)	 */
+    /* But running with -u leaves %ENV & @ARGV undefined!    XXX */
     if (!do_undump)
 	init_postdump_symbols(argc,argv,env);