From 17aa7f3df185d8eaf8e0b1dad106f97ac3c6da48 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Sat, 30 Nov 2002 22:16:51 +0200 Subject: $0 modifying part II (HP-UX only) Subject: [PATCH] $0 modifying Message-ID: <20021130181651.GA5876@kosh.hut.fi> p4raw-id: //depot/perl@18230 --- mg.c | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'mg.c') diff --git a/mg.c b/mg.c index 69bb521363..ea15875215 100644 --- a/mg.c +++ b/mg.c @@ -29,6 +29,10 @@ # endif #endif +#ifdef __hpux +# include +#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 @@ -2231,6 +2235,14 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) 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) { s = PL_origargv[0]; -- cgit v1.2.1