summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/User/pwent.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/User/pwent.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/User/pwent.pm10
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])) { .... }