diff options
author | Roca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com> | 2002-06-14 12:07:28 +0200 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-06-14 11:09:07 +0000 |
commit | faea90167f69403999e43e6e2b0be3c631e1b615 (patch) | |
tree | 8754fcca60532f1773cf52cf773b1f5effbfb82e /pp_sys.c | |
parent | 8470d26fd83241f83ec22a57c8aca9a4a230d64b (diff) | |
download | perl-faea90167f69403999e43e6e2b0be3c631e1b615.tar.gz |
getpwent() & POSIX-BC/BS2000 problem
From: "Roca Carrio, Ignasi (PO EP)" <Ignasi.Roca@fujitsu-siemens.com>
Message-ID: <318B95F90D8BD41194A5009027FD5FFBD7A3D8@madrid14.mad.fsc.net>
p4raw-id: //depot/perl@17235
Diffstat (limited to 'pp_sys.c')
-rw-r--r-- | pp_sys.c | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -5212,6 +5212,9 @@ PP(pp_gpwent) case OP_GPWENT: # ifdef HAS_GETPWENT pwent = getpwent(); +#ifdef POSIX_BC /* In some cases pw_passwd has invalid addresses */ + if (pwent) pwent = getpwnam(pwent->pw_name); +#endif # else DIE(aTHX_ PL_no_func, "getpwent"); # endif |