Change 29416 by [EMAIL PROTECTED] on 2006/11/29 11:34:10
Subject: [perl #41008] Setting $0 invalidates environment shown by ps
From: [EMAIL PROTECTED] (via RT) <[EMAIL PROTECTED]>
Date: Tue, 28 Nov 2006 05:09:31 -0800
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/mg.c#461 edit
Differences ...
==== //depot/perl/mg.c#461 (text) ====
Index: perl/mg.c
--- perl/mg.c#460~29360~ 2006-11-23 04:57:18.000000000 -0800
+++ perl/mg.c 2006-11-29 03:34:10.000000000 -0800
@@ -2611,15 +2611,14 @@
setproctitle("%s", s);
# endif
}
-#endif
-#if defined(__hpux) && defined(PSTAT_SETCMD)
+#elif defined(__hpux) && defined(PSTAT_SETCMD)
if (PL_origalen != 1) {
union pstun un;
s = SvPV_const(sv, len);
un.pst_command = (char *)s;
pstat(PSTAT_SETCMD, un, len, 0, 0);
}
-#endif
+#else
if (PL_origalen > 1) {
/* PL_origalen is set in perl_parse(). */
s = SvPV_force(sv,len);
@@ -2644,6 +2643,7 @@
for (i = 1; i < PL_origargc; i++)
PL_origargv[i] = 0;
}
+#endif
UNLOCK_DOLLARZERO_MUTEX;
break;
#endif
End of Patch.
