stas 2004/02/13 14:32:23
Modified: lib/ModPerl WrapXS.pm
. Changes
Log:
ModPerl::MethodLookup::lookup_method now handles sub-classed objects
Revision Changes Path
1.67 +3 -2 modperl-2.0/lib/ModPerl/WrapXS.pm
Index: WrapXS.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/lib/ModPerl/WrapXS.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -u -r1.66 -r1.67
--- WrapXS.pm 9 Feb 2004 23:05:37 -0000 1.66
+++ WrapXS.pm 13 Feb 2004 22:32:23 -0000 1.67
@@ -818,7 +818,7 @@
# what modules contain the passed method.
# an optional object or a reference to it can be passed to help
# resolve situations where there is more than one module containing
-# the same method.
+# the same method. Inheritance is supported.
sub lookup_method {
my ($method, $object) = @_;
@@ -861,7 +861,8 @@
if (defined $object) {
my $class = ref $object || $object;
for my $item (@items) {
- if ($class eq $item->[OBJECT]) {
+ if ($class eq $item->[OBJECT] or
+ (ref($object) && $object->isa($class))) { # inheritance
my $module = $item->[MODULE];
my $hint = "To use method '$method' add:\n" .
"\tuse $module ();\n";
1.329 +3 -0 modperl-2.0/Changes
Index: Changes
===================================================================
RCS file: /home/cvs/modperl-2.0/Changes,v
retrieving revision 1.328
retrieving revision 1.329
diff -u -u -r1.328 -r1.329
--- Changes 12 Feb 2004 23:06:23 -0000 1.328
+++ Changes 13 Feb 2004 22:32:23 -0000 1.329
@@ -12,6 +12,9 @@
=item 1.99_13-dev
+ModPerl::MethodLookup::lookup_method now handles sub-classed objects
+[Stas]
+
standard %ENV population with CGI variables and contents of the
subprocess_env table (such as SetEnv and PassEnv) has been delayed
until the last possible moment before content-generation runs.
