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 do...@hyperreal.org on 1998/05/19 04:28:48 UTC
cvs commit: modperl/t/docs LoadClass.pm startup.pl
dougm 98/05/18 19:28:47
Modified: t/docs LoadClass.pm startup.pl
Log:
#so 5.005-tobe doesn't complain:
#No such package "BaseClass" in @ISA assignment at ...
Revision Changes Path
1.3 +5 -0 modperl/t/docs/LoadClass.pm
Index: LoadClass.pm
===================================================================
RCS file: /export/home/cvs/modperl/t/docs/LoadClass.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- LoadClass.pm 1998/04/28 02:26:25 1.2
+++ LoadClass.pm 1998/05/19 02:28:47 1.3
@@ -1,6 +1,11 @@
package LoadClass;
#testing PERL_METHOD_HANDLERS
+{
+ package BaseClass;
+ #so 5.005-tobe doesn't complain:
+ #No such package "BaseClass" in @ISA assignment at ...
+}
@ISA = qw(BaseClass);
1.10 +7 -0 modperl/t/docs/startup.pl
Index: startup.pl
===================================================================
RCS file: /export/home/cvs/modperl/t/docs/startup.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- startup.pl 1998/05/10 04:14:58 1.9
+++ startup.pl 1998/05/19 02:28:47 1.10
@@ -97,6 +97,13 @@
0;
}
+{
+ package BaseClass;
+ #so 5.005-tobe doesn't complain:
+ #No such package "BaseClass" in @ISA assignment at ...
+}
+
+
$MyClass::Object = bless {}, "MyClass";
@MyClass::ISA = qw(BaseClass);