diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-11-30 22:16:51 +0200 |
|---|---|---|
| committer | H.Merijn Brand <h.m.brand@xs4all.nl> | 2002-12-02 15:45:31 +0000 |
| commit | 17aa7f3df185d8eaf8e0b1dad106f97ac3c6da48 (patch) | |
| tree | bda08065ead44eaa24fbf5dc61429deeae0d84c2 /mg.c | |
| parent | e297595301ee5f3b0643be0fb1fffae9b6b548a0 (diff) | |
| download | perl-17aa7f3df185d8eaf8e0b1dad106f97ac3c6da48.tar.gz | |
$0 modifying part II (HP-UX only)
Subject: [PATCH] $0 modifying
Message-ID: <20021130181651.GA5876@kosh.hut.fi>
p4raw-id: //depot/perl@18230
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 12 |
1 files changed, 12 insertions, 0 deletions
@@ -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); |