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 (file)
--- 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;
        }