From: Tom Christiansen Date: Fri, 20 Dec 1996 11:45:37 +0000 (-0700) Subject: dumb bug in User::pwent.pm X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b4730b2b81770bcc392cf36505f77d68a1f5e9f7;p=p5sagit%2Fp5-mst-13.2.git 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> --- 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__