This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
dumb bug in User::pwent.pm
[perl5.git] / lib / User / pwent.pm
index fd4eb4f..9f41fe9 100644 (file)
@@ -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__