Make setting 'PL_origalen = 1' before perl_parse() disable

argv[0] munging when $0 is assigned to.

p4raw-id: //depot/perl@26779

1 files changed, 4 insertions, 1 deletions

diff --git a/perl.c b/perl.c
index b1671d956d..295859953c 100644
--- a/perl.c
+++ b/perl.c
@@ -1439,7 +1439,10 @@ setuid perl scripts securely.\n");
     PL_origargc = argc;
     PL_origargv = argv;
 
-    {
+    if (PL_origalen != 0) {
+	PL_origalen = 1; /* don't use old PL_origalen if perl_parse() is called again */
+    }
+    else {
 	/* Set PL_origalen be the sum of the contiguous argv[]
 	 * elements plus the size of the env in case that it is
 	 * contiguous with the argv[].  This is used in mg.c:Perl_magic_set()