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..)

1 files changed, 1 insertions, 2 deletions

diff --git a/mg.c b/mg.c
index f4843db403..9249df2b07 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;
 	}