diff options
author | 2019-02-13 21:15:00 +0000 | |
---|---|---|
committer | 2019-02-13 21:15:00 +0000 | |
commit | 9f11ffb7133c203312a01e4b986886bc88c7d74b (patch) | |
tree | 6618511204c614b20256e4ef9dea39a7b311d638 /gnu/usr.bin/perl/lib/User | |
parent | Import perl-5.28.1 (diff) | |
download | wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.tar.xz wireguard-openbsd-9f11ffb7133c203312a01e4b986886bc88c7d74b.zip |
Fix merge issues, remove excess files - match perl-5.28.1 dist
looking good sthen@, Great! bluhm@
Diffstat (limited to 'gnu/usr.bin/perl/lib/User')
-rw-r--r-- | gnu/usr.bin/perl/lib/User/grent.pm | 4 | ||||
-rw-r--r-- | gnu/usr.bin/perl/lib/User/pwent.pm | 11 |
2 files changed, 9 insertions, 6 deletions
diff --git a/gnu/usr.bin/perl/lib/User/grent.pm b/gnu/usr.bin/perl/lib/User/grent.pm index ce6ee5ea447..b66771f2e12 100644 --- a/gnu/usr.bin/perl/lib/User/grent.pm +++ b/gnu/usr.bin/perl/lib/User/grent.pm @@ -2,15 +2,15 @@ package User::grent; use strict; use 5.006_001; -our $VERSION = '1.01'; +our $VERSION = '1.02'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); +our ($gr_name, $gr_gid, $gr_passwd, $gr_mem, @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_TAGS = ( FIELDS => [ @EXPORT_OK, @EXPORT ] ); } -use vars @EXPORT_OK; # Class::Struct forbids use of @ISA sub import { goto &Exporter::import } diff --git a/gnu/usr.bin/perl/lib/User/pwent.pm b/gnu/usr.bin/perl/lib/User/pwent.pm index 91d23bd3f68..3f82e8c8615 100644 --- a/gnu/usr.bin/perl/lib/User/pwent.pm +++ b/gnu/usr.bin/perl/lib/User/pwent.pm @@ -1,7 +1,7 @@ package User::pwent; use 5.006; -our $VERSION = '1.00'; +our $VERSION = '1.01'; use strict; use warnings; @@ -10,6 +10,12 @@ use Config; use Carp; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); +our ( $pw_name, $pw_passwd, $pw_uid, $pw_gid, + $pw_gecos, $pw_dir, $pw_shell, + $pw_expire, $pw_change, $pw_class, + $pw_age, + $pw_quota, $pw_comment, + ); BEGIN { use Exporter (); @EXPORT = qw(getpwent getpwuid getpwnam getpw); @@ -21,15 +27,12 @@ BEGIN { $pw_expire $pw_change $pw_class $pw_age $pw_quota $pw_comment - $pw_expire - ); %EXPORT_TAGS = ( FIELDS => [ grep(/^\$pw_/, @EXPORT_OK), @EXPORT ], ALL => [ @EXPORT, @EXPORT_OK ], ); } -use vars grep /^\$pw_/, @EXPORT_OK; # # XXX: these mean somebody hacked this module's source |