diff options
| author | Norton T. Allen <allen@huarp.harvard.edu> | 1999-07-28 09:08:42 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-07-28 17:46:30 +0000 |
| commit | 6a5e2de57d60ed48f789873a019a6bf17bbe5354 (patch) | |
| tree | 249b74bddcb7fec89a965e2cd272946c5a8876b0 /pp_sys.c | |
| parent | 9f50e519fad23cd50803caa085853e141c97cc3f (diff) | |
| download | perl-6a5e2de57d60ed48f789873a019a6bf17bbe5354.tar.gz | |
Need to add some more conditions to deal with the case
defined(HAS_GETSPNAM) && ! defined(HAS_GETSPENT)
which is true for QNX4.
To: perl5-porters@perl.org
Subject: [ID 19990728.009] Patch:pp_sys.c _58 QNX
Message-Id: <199907281708.NAA07947@bottesini.harvard.edu>
p4raw-id: //depot/cfgperl@3817
Diffstat (limited to 'pp_sys.c')
| -rw-r--r-- | pp_sys.c | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -4617,7 +4617,7 @@ PP(pp_gpwent) register SV *sv; struct passwd *pwent; STRLEN n_a; -#ifdef HAS_GETSPENT +#if defined(HAS_GETSPENT) || defined(HAS_GETSPNAM) struct spwd *spwent = NULL; #endif @@ -4639,8 +4639,10 @@ PP(pp_gpwent) spwent = getspnam(pwent->pw_name); } # endif +# ifdef HAS_GETSPENT else spwent = (struct spwd *)getspent(); +# endif #endif EXTEND(SP, 10); @@ -4661,7 +4663,7 @@ PP(pp_gpwent) PUSHs(sv = sv_mortalcopy(&PL_sv_no)); #ifdef PWPASSWD -# ifdef HAS_GETSPENT +# if defined(HAS_GETSPENT) || defined(HAS_GETSPNAM) if (spwent) sv_setpv(sv, spwent->sp_pwdp); else |