diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/User | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/User')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/User/grent.pm | 6 | ||||
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/User/pwent.pm | 10 |
2 files changed, 8 insertions, 8 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/User/grent.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/User/grent.pm index 9f95541729..5774132e8f 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/User/grent.pm +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/User/grent.pm @@ -2,7 +2,7 @@ package User::grent; use strict; use 5.006_001; -our $VERSION = '1.03'; +our $VERSION = '1.04'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); our ($gr_name, $gr_gid, $gr_passwd, @gr_members); BEGIN { @@ -46,7 +46,7 @@ User::grent - by-name interface to Perl's built-in getgr*() functions =head1 SYNOPSIS use User::grent; - $gr = getgrgid(0) or die "No group zero"; + my $gr = getgrgid(0) or die "No group zero"; if ( $gr->name eq 'wheel' && @{$gr->members} > 1 ) { print "gid zero name wheel, with other members"; } @@ -57,7 +57,7 @@ User::grent - by-name interface to Perl's built-in getgr*() functions print "gid zero name wheel, with other members"; } - $gr = getgr($whoever); + my $gr = getgr($whoever); =head1 DESCRIPTION diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/User/pwent.pm b/systems/texlive/tlnet/tlpkg/tlperl/lib/User/pwent.pm index 3f82e8c861..ff8fbd5877 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/User/pwent.pm +++ b/systems/texlive/tlnet/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])) { .... } |