From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 30 Nov 2002 20:16:51 +0000 (+0200)
Subject: $0 modifying part II (HP-UX only)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=17aa7f3df185d8eaf8e0b1dad106f97ac3c6da48;p=p5sagit%2Fp5-mst-13.2.git

$0 modifying part II (HP-UX only)
Subject: [PATCH] $0 modifying
Message-ID: <20021130181651.GA5876@kosh.hut.fi>

p4raw-id: //depot/perl@18230
---

diff --git a/mg.c b/mg.c
index 69bb521..ea15875 100644
--- a/mg.c
+++ b/mg.c
@@ -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
@@ -2232,6 +2236,14 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 #   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];
 	    s += strlen(s);