summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorRoca Carrio, Ignasi (PO EP) <Ignasi.Roca@fujitsu-siemens.com>2002-06-14 12:07:28 +0200
committerJarkko Hietaniemi <jhi@iki.fi>2002-06-14 11:09:07 +0000
commitfaea90167f69403999e43e6e2b0be3c631e1b615 (patch)
tree8754fcca60532f1773cf52cf773b1f5effbfb82e /pp_sys.c
parent8470d26fd83241f83ec22a57c8aca9a4a230d64b (diff)
downloadperl-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.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 200ed94831..88f45c3ee6 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -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