Change 29446 by [EMAIL PROTECTED] on 2006/12/04 09:36:15
Subject: Re: [perl #38868] Changing $0 on darwin leads to excessive
padding in 'ps'
From: Chris Dolan <[EMAIL PROTECTED]>
Date: Sat, 2 Dec 2006 09:37:08 -0600
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/mg.c#462 edit
Differences ...
==== //depot/perl/mg.c#462 (text) ====
Index: perl/mg.c
--- perl/mg.c#461~29416~ 2006-11-29 03:34:10.000000000 -0800
+++ perl/mg.c 2006-12-04 01:36:15.000000000 -0800
@@ -2632,11 +2632,16 @@
Copy(s, PL_origargv[0], len, char);
PL_origargv[0][len] = 0;
memset(PL_origargv[0] + len + 1,
+#ifdef PERL_DARWIN
+ /* Special case for darwin: see [perl #38868] */
+ (int)'\0',
+#else
/* Is the space counterintuitive? Yes.
- * (You were expecting \0?)
+ * (You were expecting \0?)
* Does it work? Seems to. (In Linux 2.4.20 at least.)
* --jhi */
(int)' ',
+#endif
PL_origalen - len - 1);
}
PL_origargv[0][PL_origalen-1] = 0;
End of Patch.
