In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/e74a82d73e1108a42abe6840048f84ea7a97ff8d?hp=e47f50f38f2d46b5a4015d38875647191b12362b>
- Log ----------------------------------------------------------------- commit e74a82d73e1108a42abe6840048f84ea7a97ff8d Author: James E Keenan <[email protected]> Date: Mon Sep 3 13:58:27 2018 -0400 There is no getpw() function in User::grent. Documentation should refer to getgr(), per report from Elizabeth Mattijsen. Increment $VERSION. For: RT 133217 commit 5f6213d89ed78ad348741c2e8c3f944bf412b426 Author: James E Keenan <[email protected]> Date: Mon Sep 3 13:54:10 2018 -0400 Remove superfluous variable $gr_mem. Per recommendation by Elizabeth Mattijsen. For: RT 133217 commit 726921511b0033f7e602dea3f166e84d59fd9e44 Author: James E Keenan <[email protected]> Date: Mon Sep 3 13:52:38 2018 -0400 Correct typo reported by Elizabeth Mattijsen For: RT 133217 ----------------------------------------------------------------------- Summary of changes: lib/User/grent.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/lib/User/grent.pm b/lib/User/grent.pm index b66771f2e1..9f95541729 100644 --- a/lib/User/grent.pm +++ b/lib/User/grent.pm @@ -2,13 +2,13 @@ package User::grent; use strict; use 5.006_001; -our $VERSION = '1.02'; +our $VERSION = '1.03'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); -our ($gr_name, $gr_gid, $gr_passwd, $gr_mem, @gr_members); +our ($gr_name, $gr_gid, $gr_passwd, @gr_members); BEGIN { use Exporter (); @EXPORT = qw(getgrent getgrgid getgrnam getgr); - @EXPORT_OK = qw($gr_name $gr_gid $gr_passwd $gr_mem @gr_members); + @EXPORT_OK = qw($gr_name $gr_gid $gr_passwd @gr_members); %EXPORT_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); } @@ -61,7 +61,7 @@ User::grent - by-name interface to Perl's built-in getgr*() functions =head1 DESCRIPTION -This module's default exports override the core getgrent(), getgruid(), +This module's default exports override the core getgrent(), getgrgid(), and getgrnam() functions, replacing them with versions that return "User::grent" objects. This object has methods that return the similarly named structure field name from the C's passwd structure from F<grp.h>; @@ -76,8 +76,8 @@ to $gr_gid if you import the fields. Array references are available as regular array variables, so C<@{ $group_obj-E<gt>members() }> would be simply @gr_members. -The getpw() function is a simple front-end that forwards -a numeric argument to getpwuid() and the rest to getpwnam(). +The getgr() function is a simple front-end that forwards a numeric +argument to getgrgid() and the rest to getgrnam(). To access this functionality without the core overrides, pass the C<use> an empty import list, and then access -- Perl5 Master Repository
