You are viewing a plain text version of this content. The canonical link for it is here.
Posted to modperl-cvs@perl.apache.org by st...@apache.org on 2002/08/14 16:27:03 UTC
cvs commit: modperl-2.0/ModPerl-Registry/lib/ModPerl PerlRun.pm Registry.pm RegistryBB.pm
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 {