stas 2002/08/14 07:27:03 Modified: ModPerl-Registry/lib/ModPerl PerlRun.pm Registry.pm RegistryBB.pm Log: use the base pragma instead of @ISA Revision Changes Path 1.2 +1 -2 modperl-2.0/ModPerl-Registry/lib/ModPerl/PerlRun.pm Index: PerlRun.pm =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/PerlRun.pm,v retrieving revision 1.1 retrieving revision 1.2 diff -u -r1.1 -r1.2 --- PerlRun.pm 9 Oct 2001 12:47:38 -0000 1.1 +++ PerlRun.pm 14 Aug 2002 14:27:03 -0000 1.2 @@ -8,8 +8,7 @@ our $VERSION = '1.99'; -use ModPerl::RegistryCooker; -@ModPerl::PerlRun::ISA = qw(ModPerl::RegistryCooker); +use base qw(ModPerl::RegistryCooker); # META: prototyping ($$) segfaults on request sub handler { 1.3 +1 -2 modperl-2.0/ModPerl-Registry/lib/ModPerl/Registry.pm Index: Registry.pm =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/Registry.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- Registry.pm 22 May 2002 05:41:48 -0000 1.2 +++ Registry.pm 14 Aug 2002 14:27:03 -0000 1.3 @@ -8,8 +8,7 @@ our $VERSION = '1.99'; -use ModPerl::RegistryCooker; -@ModPerl::Registry::ISA = qw(ModPerl::RegistryCooker); +use base qw(ModPerl::RegistryCooker); sub handler { my $class = (@_ >= 2) ? shift : __PACKAGE__; 1.3 +1 -2 modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryBB.pm Index: RegistryBB.pm =================================================================== RCS file: /home/cvs/modperl-2.0/ModPerl-Registry/lib/ModPerl/RegistryBB.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -u -r1.2 -r1.3 --- RegistryBB.pm 22 May 2002 05:41:48 -0000 1.2 +++ RegistryBB.pm 14 Aug 2002 14:27:03 -0000 1.3 @@ -8,8 +8,7 @@ our $VERSION = '1.99'; -use ModPerl::RegistryCooker; -@ModPerl::RegistryBB::ISA = qw(ModPerl::RegistryCooker); +use base qw(ModPerl::RegistryCooker); # META: prototyping ($$) segfaults on request sub handler {