Change 16339 by jhi@alpha on 2002/05/02 12:41:18
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)
Affected files ...
.... //depot/perl/mg.c#231 integrate
Differences ...
==== //depot/perl/mg.c#231 (text) ====
Index: perl/mg.c
--- perl/mg.c.~1~ Thu May 2 06:45:06 2002
+++ perl/mg.c Thu May 2 06:45:06 2002
@@ -2267,8 +2267,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.
