perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From s...@apache.org
Subject cvs commit: modperl-2.0 Changes
Date Fri, 13 Feb 2004 22:32:23 GMT
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.
  
  
  

Mime
View raw message