X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FUser%2Fgrent.pm;h=ce6ee5ea447d861a60679a26f72e6a0689e017c7;hb=3fcda861606b23c12f4356df2a20543dc1c1779b;hp=d9581d8aa8445a95dc03649196c5fa1b51782578;hpb=3b825e419da1c361eab06a1e6d287276c0aef241;p=p5sagit%2Fp5-mst-13.2.git diff --git a/lib/User/grent.pm b/lib/User/grent.pm index d9581d8..ce6ee5e 100644 --- a/lib/User/grent.pm +++ b/lib/User/grent.pm @@ -2,7 +2,7 @@ package User::grent; use strict; use 5.006_001; -our $VERSION = '1.00'; +our $VERSION = '1.01'; our(@EXPORT, @EXPORT_OK, %EXPORT_TAGS); BEGIN { use Exporter (); @@ -51,7 +51,7 @@ User::grent - by-name interface to Perl's built-in getgr*() functions 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";