From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Thu, 2 May 2002 12:41:18 +0000 (+0000)
Subject: Integrate #16334 from maint-5.6;
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f1c3b2ef98f177b85072541f176c2fe20e073dad;p=p5sagit%2Fp5-mst-13.2.git

Integrate #16334 from maint-5.6;

don't pad $0 with spaces when setting it, use nulls instead (the
spaces show up as a very long line in a ps listing)

p4raw-id: //depot/perl@16339
p4raw-integrated: from //depot/maint-5.6/perl@16338 'merge in' mg.c
	(@16332..)
---

diff --git a/mg.c b/mg.c
index f4843db..9249df2 100644
--- a/mg.c
+++ b/mg.c
@@ -2267,8 +2267,7 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	    s = PL_origargv[0]+i;
 	    *s++ = '\0';
 	    while (++i < (I32)PL_origalen)
-		*s++ = ' ';
-	    s = PL_origargv[0]+i;
+		*s++ = '\0';
 	    for (i = 1; i < PL_origargc; i++)
 		PL_origargv[i] = Nullch;
 	}