The -0 command-line switch wasn't setting $/ at compile-time.

Move the initialization of $/ just after switch parsing
(it was done after yyparse().)

p4raw-id: //depot/perl@18015

1 files changed, 1 insertions, 6 deletions

diff --git a/perl.c b/perl.c
index dd459cb18b..c23a184716 100644
--- a/perl.c
+++ b/perl.c
@@ -1339,6 +1339,7 @@ print \"  \\@INC:\\n    @INC\\n\";");
 	}
     }
   switch_end:
+    sv_setsv(get_sv("/", TRUE), PL_rs);
 
     if (
 #ifndef SECURE_INTERNAL_GETENV
@@ -1538,12 +1539,6 @@ print \"  \\@INC:\\n    @INC\\n\";");
 	PL_e_script = Nullsv;
     }
 
-/*
-   Not sure that this is still the right place to do this now that we
-   no longer use PL_nrs. HVDS 2001/09/09
-*/
-    sv_setsv(get_sv("/", TRUE), PL_rs);
-
     if (PL_do_undump)
 	my_unexec();