package User::grent;
use strict;
-use 5.6.1;
-our $VERSION = '1.00';
+use 5.006_001;
+our $VERSION = '1.01';
our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS);
BEGIN {
use Exporter ();
print "gid zero name wheel, with other members";
}
- use User::grent qw(:FIELDS;
+ use User::grent qw(:FIELDS);
getgrgid(0) or die "No group zero";
if ( $gr_name eq 'wheel' && @gr_members > 1 ) {
print "gid zero name wheel, with other members";