summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/User
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
committerNorbert Preining <norbert@preining.info>2024-03-15 03:06:35 +0000
commit12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch)
tree0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/User
parent62170822e034fdd3f81de7274835d0d3b0467100 (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.pm6
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/User/pwent.pm10
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])) { .... }