X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FUser%2Fpwent.pm;h=91d23bd3f68d544f6944d9d79102d61afd336236;hb=8468119f6ee8085392e5c77b735fdba19cf0f08e;hp=31cf74227c5d34dc2686b911554281b4cb0f646f;hpb=c92c315595219e206b370a528cce0c3bd3b17410;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm
index 31cf742..91d23bd 100644
--- a/lib/User/pwent.pm
+++ b/lib/User/pwent.pm
@@ -1,6 +1,7 @@
 package User::pwent;
 
 use 5.006;
+our $VERSION = '1.00';
 
 use strict;
 use warnings;
@@ -209,7 +210,7 @@ User::pwent - by-name interface to Perl's built-in getpw*() functions
  use User::pwent qw/:DEFAULT pw_has/;
  if (pw_has(qw[gecos expire quota])) { .... }
  if (pw_has("name uid gid passwd"))  { .... }
- print "Your struct pwd has: ", pw_has(), "\n";
+ print "Your struct pwd has: ", scalar pw_has(), "\n";
 
 =head1 DESCRIPTION
 
@@ -220,7 +221,7 @@ similarly named structure field name from the C's passwd structure
 from F<pwd.h>, stripped of their leading "pw_" parts, namely C<name>,
 C<passwd>, C<uid>, C<gid>, C<change>, C<age>, C<quota>, C<comment>,
 C<class>, C<gecos>, C<dir>, C<shell>, and C<expire>.  The C<passwd>,
-C<gecos>, and C<shell> fields should be considered tainted.
+C<gecos>, and C<shell> fields are tainted when running in taint mode.
 
 You may also import all the structure fields directly into your
 namespace as regular variables using the :FIELDS import tag.  (Note
@@ -250,7 +251,7 @@ You may ask whether one of these was implemented on the system Perl
 was built on by asking the importable C<pw_has> function about them.
 This function returns true if all parameters are supported fields
 on the build platform, false if one or more were not, and raises
-and exception if you asked about a field that Perl never knows how
+an exception if you asked about a field that Perl never knows how
 to provide.  Parameters may be in a space-separated string, or as
 separate arguments.  If you pass no parameters, the function returns
 the list of C<struct pwd> fields supported by your build platform's
@@ -286,7 +287,7 @@ Tom Christiansen
 
 =head1 HISTORY
 
-=over
+=over 4
 
 =item March 18th, 2000