summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/User/grent.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/User/grent.pm')
-rw-r--r--Master/tlpkg/tlperl/lib/User/grent.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/Master/tlpkg/tlperl/lib/User/grent.pm b/Master/tlpkg/tlperl/lib/User/grent.pm
index 9f95541729c..5774132e8f5 100644
--- a/Master/tlpkg/tlperl/lib/User/grent.pm
+++ b/Master/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