diff options
| author | Tom Christiansen <tchrist@mox.perl.com> | 1996-12-20 04:45:37 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1996-12-23 12:58:58 +1200 |
| commit | b4730b2b81770bcc392cf36505f77d68a1f5e9f7 (patch) | |
| tree | 9c48b203f8bee13e32cd256c5b0c6b4032c7dc0b | |
| parent | 3dee40139c1a854367df29db716f1e572260c3e2 (diff) | |
| download | perl-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>
| -rw-r--r-- | lib/User/pwent.pm | 4 |
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__ |