Change 17235 by jhi@alpha on 2002/06/14 11:09:07
Subject: [PATCH] getpwent() & POSIX-BC/BS2000 problem
From: "Roca Carrio, Ignasi (PO EP)" <[EMAIL PROTECTED]>
Date: Fri, 14 Jun 2002 10:07:28 +0200
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/pp_sys.c#311 edit
Differences ...
==== //depot/perl/pp_sys.c#311 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#310~16885~ Thu May 30 06:43:28 2002
+++ perl/pp_sys.c Fri Jun 14 04:09:07 2002
@@ -5212,6 +5212,9 @@
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
End of Patch.
