From b4730b2b81770bcc392cf36505f77d68a1f5e9f7 Mon Sep 17 00:00:00 2001
From: Tom Christiansen <tchrist@mox.perl.com>
Date: Fri, 20 Dec 1996 04:45:37 -0700
Subject: [PATCH] dumb bug in User::pwent.pm

You need to apply s/getpwgid/getpwuid/g on that file. Sorry 'bout that.
Cut and paste strikes again.

--tom

p5p-msgid: <199612201145.EAA27860@mox.perl.com>
---
 lib/User/pwent.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm
index fd4eb4f..9f41fe9 100644
--- a/lib/User/pwent.pm
+++ b/lib/User/pwent.pm
@@ -41,8 +41,8 @@ sub populate (@) {
 
 sub getpwent ( ) { populate(CORE::getpwent()) } 
 sub getpwnam ($) { populate(CORE::getpwnam(shift)) } 
-sub getpwgid ($) { populate(CORE::getpwgid(shift)) } 
-sub getpw    ($) { ($_[0] =~ /^\d+/) ? &getpwgid : &getpwnam } 
+sub getpwuid ($) { populate(CORE::getpwuid(shift)) } 
+sub getpw    ($) { ($_[0] =~ /^\d+/) ? &getpwuid : &getpwnam } 
 
 1;
 __END__
-- 
2.7.4