Change 18230 by merijn@merijn-l1 on 2002/12/02 15:45:31
$0 modifying part II (HP-UX only)
Date: Sat, 30 Nov 2002 20:16:51 +0200
From: Jarkko Hietaniemi <[EMAIL PROTECTED]>
Subject: [PATCH] $0 modifying
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/mg.c#244 edit
Differences ...
==== //depot/perl/mg.c#244 (text) ====
Index: perl/mg.c
--- perl/mg.c#243~18229~ Mon Dec 2 07:43:16 2002
+++ perl/mg.c Mon Dec 2 07:45:31 2002
@@ -29,6 +29,10 @@
# endif
#endif
+#ifdef __hpux
+# include <sys/pstat.h>
+#endif
+
/* if you only have signal() and it resets on each signal,
FAKE_PERSISTENT_SIGNAL_HANDLERS fixes */
#if !defined(HAS_SIGACTION) && defined(VMS)
# define FAKE_PERSISTENT_SIGNAL_HANDLERS
@@ -2230,6 +2234,14 @@
* --jhi */
setproctitle("%s", s);
# endif
+ }
+#endif
+#if defined(__hpux) && defined(PSTAT_SETCMD)
+ {
+ union pstun un;
+ s = SvPV(sv, len);
+ un.pst_command = s;
+ pstat(PSTAT_SETCMD, un, len, 0, 0);
}
#endif
if (!PL_origalen) {
End of Patch.
