Change 29530 by [EMAIL PROTECTED] on 2006/12/12 11:36:41
The overly-picky AIX xlc compiler doesn't like the style
from patch #29446
Affected files ...
... //depot/perl/mg.c#463 edit
Differences ...
==== //depot/perl/mg.c#463 (text) ====
Index: perl/mg.c
--- perl/mg.c#462~29446~ 2006-12-04 01:36:15.000000000 -0800
+++ perl/mg.c 2006-12-12 03:36:41.000000000 -0800
@@ -2631,18 +2631,18 @@
/* Shorter than original, will be padded. */
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',
+ /* Special case for darwin: see [perl #38868] */
+ memset(PL_origargv[0] + len + 1,
+ (int)'\0', PL_origalen - len - 1);
#else
- /* Is the space counterintuitive? Yes.
- * (You were expecting \0?)
- * Does it work? Seems to. (In Linux 2.4.20 at least.)
- * --jhi */
- (int)' ',
+ /* Is the space counterintuitive? Yes.
+ * (You were expecting \0?)
+ * Does it work? Seems to. (In Linux 2.4.20 at least.)
+ * --jhi */
+ memset(PL_origargv[0] + len + 1,
+ (int)' ', PL_origalen - len - 1);
#endif
- PL_origalen - len - 1);
}
PL_origargv[0][PL_origalen-1] = 0;
for (i = 1; i < PL_origargc; i++)
End of Patch.
