Change 16334 by gsar@onru on 2002/05/02 07:10:52
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)
Affected files ...
.... //depot/maint-5.6/perl/mg.c#28 edit
Differences ...
==== //depot/maint-5.6/perl/mg.c#28 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Thu May 2 01:15:06 2002
+++ perl/mg.c Thu May 2 01:15:06 2002
@@ -2064,8 +2064,7 @@
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;
}
End of Patch.