diff options
| author | Perl 5 Porters <perl5-porters@africa.nicoh.com> | 1997-04-07 00:00:00 +0000 |
|---|---|---|
| committer | Chip Salzenberg <chip@atlantic.net> | 1997-04-07 00:00:00 +0000 |
| commit | 8cc95fdbe3687330bd987cea170494b4cd263d90 (patch) | |
| tree | e3a830736fef94663b44fc7cf30f0755de3e09c5 /lib/User | |
| parent | 1061146bbd7c9a40c4288ec63427c8327cc0d5fa (diff) | |
| download | perl-8cc95fdbe3687330bd987cea170494b4cd263d90.tar.gz | |
[inseparable changes from match from perl-5.003_97b to perl-5.003_97c]
BUILD PROCESS
Subject: Fix syntax error in Configure comment(!)
From: Chip Salzenberg <chip@perl.com>
Files: Configure
Subject: For Solaris, if -DDEBUGGING, default to '-KPIC', not '-Kpic'
From: Chip Salzenberg <chip@perl.com>
Files: Configure
Subject: Fix usage of dXSUB_SYS, esp. in ExtUtils::Miniperl
From: Chip Salzenberg <chip@perl.com>
Files: dosish.h minimod.pl os2/os2ish.h plan9/plan9ish.h vms/vmsish.h
CORE LANGUAGE CHANGES
Subject: Refine setgroups() behavior of C<$)>
From: Chip Salzenberg <chip@perl.com>
Files: mg.c pod/perldelta.pod pod/perlvar.pod
Subject: Forbid -[Mm] on #! line
From: Chip Salzenberg <chip@perl.com>
Files: pod/perldelta.pod pod/perldiag.pod toke.c
CORE PORTABILITY
Subject: Special mkdir() for VMS
Date: Tue, 08 Apr 1997 12:33:56 -0400 (EDT)
From: Charles Bailey <bailey@hmivax.humgen.upenn.edu>
Files: dosish.h lib/ExtUtils/MM_Unix.pm lib/File/Path.pm os2/os2ish.h plan9/plan9ish.h pp_sys.c unixish.h vms/vms.c vms/vmsish.h
Msg-ID: 01IHGOXN6MZM0004K3@hmivax.humgen.upenn.edu
(applied based on p5p patch as commit ebec1d4b2ca9c08d24035a369c7aa782aa058e66)
DOCUMENTATION
Subject: IO::Socket doc fix
Date: Tue, 08 Apr 1997 15:30:43 -0400
From: Roderick Schertler <roderick@argon.org>
Files: ext/IO/lib/IO/Socket.pm
Msg-ID: 28383.860527843@eeyore.ibcinc.com
(applied based on p5p patch as commit 4a51304ce091cb6d1ccc9f25e11753bd7d985b32)
LIBRARY AND EXTENSIONS
Subject: Replace Class::Template with improved Class::Struct
From: Jim Miner <jfm@winternet.com>
Files: MANIFEST lib/Class/Struct.pm lib/Class/Template.pm lib/File/stat.pm lib/Net/hostent.pm lib/Net/netent.pm lib/Net/protoent.pm lib/Net/servent.pm lib/Time/gmtime.pm lib/Time/localtime.pm lib/Time/tm.pm lib/User/grent.pm lib/User/pwent.pm pod/perldelta.pod pod/perlfaq7.pod pod/perlmod.pod pod/perltoot.pod
Subject: MakeMaker pathname patch
Date: Wed, 9 Apr 1997 20:08:23 +0100
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Files: lib/ExtUtils/MM_Unix.pm lib/ExtUtils/MakeMaker.pm
Msg-ID: 199704091908.UAA00877@ni-s.u-net.com
(applied based on p5p patch as commit 9cbbd68ff8edc7de96e3471de49538d0b2b98173)
Subject: Fix configuration of new socket
From: Chip Salzenberg <chip@perl.com>
Files: ext/IO/lib/IO/Socket.pm
Diffstat (limited to 'lib/User')
| -rw-r--r-- | lib/User/grent.pm | 10 | ||||
| -rw-r--r-- | lib/User/pwent.pm | 10 |
2 files changed, 12 insertions, 8 deletions
diff --git a/lib/User/grent.pm b/lib/User/grent.pm index 3c4635ba2a..deb0a8d1be 100644 --- a/lib/User/grent.pm +++ b/lib/User/grent.pm @@ -3,15 +3,17 @@ 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(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; -use Class::Template qw(struct); +# Class::Struct forbids use of @ISA +sub import { goto &Exporter::import } + +use Class::Struct qw(struct); struct 'User::grent' => [ name => '$', passwd => '$', @@ -83,7 +85,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 diff --git a/lib/User/pwent.pm b/lib/User/pwent.pm index a027fe627b..183a641e9e 100644 --- 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 => '$', @@ -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 |