diff options
| -rwxr-xr-x | Configure | 10 | ||||
| -rw-r--r-- | config_h.SH | 6 | ||||
| -rw-r--r-- | mg.c | 3 |
3 files changed, 17 insertions, 2 deletions
@@ -20,7 +20,7 @@ # $Id: Head.U,v 3.0.1.9 1997/02/28 15:02:09 ram Exp $ # -# Generated on Mon Jul 24 06:41:11 EET DST 2000 [metaconfig 3.0 PL70] +# Generated on Fri Jul 28 01:31:47 EET DST 2000 [metaconfig 3.0 PL70] # (with additional metaconfig patches by perlbug@perl.com) cat >/tmp/c1$$ <<EOF @@ -490,6 +490,7 @@ d_setpgrp2='' d_bsdsetpgrp='' d_setpgrp='' d_setprior='' +d_setproctitle='' d_setpwent='' d_setregid='' d_setresgid='' @@ -1002,7 +1003,7 @@ defvoidused=15 libswanted='sfio socket bind inet nsl nm ndbm gdbm dbm db malloc dl' libswanted="$libswanted dld ld sun m c cposix posix" libswanted="$libswanted ndir dir crypt sec" -libswanted="$libswanted ucb bsd BSD PW x iconv" +libswanted="$libswanted ucb bsd BSD PW x iconv util" : We probably want to search /usr/shlib before most other libraries. : This is only used by the lib/ExtUtils/MakeMaker.pm routine extliblist. glibpth=`echo " $glibpth " | sed -e 's! /usr/shlib ! !'` @@ -11093,6 +11094,10 @@ eval $inlibc set setpriority d_setprior eval $inlibc +: see if setproctitle exists +set setproctitle d_setproctitle +eval $inlibc + : see if setpwent exists set setpwent d_setpwent eval $inlibc @@ -15492,6 +15497,7 @@ d_setpgid='$d_setpgid' d_setpgrp2='$d_setpgrp2' d_setpgrp='$d_setpgrp' d_setprior='$d_setprior' +d_setproctitle='$d_setproctitle' d_setpwent='$d_setpwent' d_setregid='$d_setregid' d_setresgid='$d_setresgid' diff --git a/config_h.SH b/config_h.SH index 21eb607cf1..70aaefe2f2 100644 --- a/config_h.SH +++ b/config_h.SH @@ -1882,6 +1882,12 @@ sed <<!GROK!THIS! >$CONFIG_H -e 's!^#undef\(.*/\)\*!/\*#define\1 \*!' -e 's!^#un */ #$d_setpent HAS_SETPROTOENT /**/ +/* HAS_SETPROCTITLE: + * This symbol, if defined, indicates that the setproctitle routine is + * available to set process title. + */ +#$d_setproctitle HAS_SETPROCTITLE /**/ + /* HAS_SETPWENT: * This symbol, if defined, indicates that the setpwent routine is * available for initializing sequential access of the passwd database. @@ -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 |