summaryrefslogtreecommitdiff
path: root/lib/User
diff options
context:
space:
mode:
authorTom Christiansen <tchrist@mox.perl.com>1996-12-20 04:45:37 -0700
committerChip Salzenberg <chip@atlantic.net>1996-12-23 12:58:58 +1200
commitb4730b2b81770bcc392cf36505f77d68a1f5e9f7 (patch)
tree9c48b203f8bee13e32cd256c5b0c6b4032c7dc0b /lib/User
parent3dee40139c1a854367df29db716f1e572260c3e2 (diff)
downloadperl-b4730b2b81770bcc392cf36505f77d68a1f5e9f7.tar.gz
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>
Diffstat (limited to 'lib/User')
-rw-r--r--lib/User/pwent.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm
index fd4eb4f09d..9f41fe9f39 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__