summaryrefslogtreecommitdiffstats
path: root/gnu/usr.bin/perl/lib/User
diff options
context:
space:
mode:
authorafresh1 <afresh1@openbsd.org>2019-02-13 21:15:00 +0000
committerafresh1 <afresh1@openbsd.org>2019-02-13 21:15:00 +0000
commit9f11ffb7133c203312a01e4b986886bc88c7d74b (patch)
tree6618511204c614b20256e4ef9dea39a7b311d638 /gnu/usr.bin/perl/lib/User
parentImport perl-5.28.1 (diff)
downloadwireguard-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.pm4
-rw-r--r--gnu/usr.bin/perl/lib/User/pwent.pm11
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