diff options
Diffstat (limited to 'Master/tlpkg/tlperl/lib/User/pwent.pm')
-rw-r--r-- | Master/tlpkg/tlperl/lib/User/pwent.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/Master/tlpkg/tlperl/lib/User/pwent.pm b/Master/tlpkg/tlperl/lib/User/pwent.pm index 3f82e8c8615..ff8fbd58777 100644 --- a/Master/tlpkg/tlperl/lib/User/pwent.pm +++ b/Master/tlpkg/tlperl/lib/User/pwent.pm @@ -1,7 +1,7 @@ package User::pwent; use 5.006; -our $VERSION = '1.01'; +our $VERSION = '1.02'; use strict; use warnings; @@ -189,14 +189,14 @@ User::pwent - by-name interface to Perl's built-in getpw*() functions =head1 SYNOPSIS use User::pwent; - $pw = getpwnam('daemon') || die "No daemon user"; + my $pw = getpwnam('daemon') || die "No daemon user"; if ( $pw->uid == 1 && $pw->dir =~ m#^/(bin|tmp)?\z#s ) { print "gid 1 on root dir"; } - $real_shell = $pw->shell || '/bin/sh'; + my $real_shell = $pw->shell || '/bin/sh'; - for (($fullname, $office, $workphone, $homephone) = + for (my ($fullname, $office, $workphone, $homephone) = split /\s*,\s*/, $pw->gecos) { s/&/ucfirst(lc($pw->name))/ge; @@ -208,7 +208,7 @@ User::pwent - by-name interface to Perl's built-in getpw*() functions print "gid 1 on root dir"; } - $pw = getpw($whoever); + my $pw = getpw($whoever); use User::pwent qw/:DEFAULT pw_has/; if (pw_has(qw[gecos expire quota])) { .... } |