pod2html mangles C<&foo(42);>

[p5sagit/p5-mst-13.2.git] / lib / User / pwent.pm

diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm
index 9f41fe9..32301ca 100644 (file)
--- a/lib/User/pwent.pm
+++ b/lib/User/pwent.pm
@@ -3,8 +3,7 @@ use strict;
 
 BEGIN { 
     use Exporter   ();
-    use vars       qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-    @ISA         = qw(Exporter);
+    use vars       qw(@EXPORT @EXPORT_OK %EXPORT_TAGS);
     @EXPORT      = qw(getpwent getpwuid getpwnam getpw);
     @EXPORT_OK   = qw(
                        $pw_name   $pw_passwd   $pw_uid  
@@ -15,7 +14,10 @@ BEGIN {
 }
 use vars      @EXPORT_OK;
 
-use Class::Template qw(struct);
+# Class::Struct forbids use of @ISA
+sub import { goto &Exporter::import }
+
+use Class::Struct qw(struct);
 struct 'User::pwent' => [
     name    => '$',
     passwd  => '$',
@@ -23,7 +25,7 @@ struct 'User::pwent' => [
     gid            => '$',
     quota   => '$',
     comment => '$',
-    gcos    => '$',
+    gecos   => '$',
     dir            => '$',
     shell   => '$',
 ];
@@ -49,7 +51,7 @@ __END__
 
 =head1 NAME
 
-User::pwent.pm - by-name interface to Perl's built-in getpw*() functions
+User::pwent - by-name interface to Perl's built-in getpw*() functions
 
 =head1 SYNOPSIS
 
@@ -93,7 +95,7 @@ via the C<CORE::> pseudo-package.
 
 =head1 NOTE
 
-While this class is currently implemented using the Class::Template
+While this class is currently implemented using the Class::Struct
 module to build a struct-like class, you shouldn't rely upon this.
 
 =head1 AUTHOR