diff options
| author | Jeffrey Friedl <jfriedl@regex.info> | 2000-07-22 18:31:34 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2000-07-27 23:31:49 +0000 |
| commit | 0c9177abdae6e91f4dfdab2ef3cc817ec901e51e (patch) | |
| tree | 225bf30380df0e20c613010e1b33cf97c48039e1 /mg.c | |
| parent | cb0cff2080ef8ab655f0ad71ed1cfa42bbdd0709 (diff) | |
| download | perl-0c9177abdae6e91f4dfdab2ef3cc817ec901e51e.tar.gz | |
Use setproctitle() if available to modify $0.
Subject: setting $* on BSD4 broken
Message-Id: <200007230831.BAA08379@ventrue.yahoo.com>
p4raw-id: //depot/perl@6457
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -2054,6 +2054,9 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg) for (i = 1; i < PL_origargc; i++) PL_origargv[i] = Nullch; } +#ifdef HAS_SETPROCTITLE + setproctitle("%s", SvPV_nolen(sv)); +#endif break; #endif #ifdef USE_THREADS |