cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm

[dougm]

dougm       01/10/08 10:04:46

  Modified:    lib/ModPerl WrapXS.pm
  Log:
  default to Apache::XSLoader if class does not have its own (e.g. ModPerl::)
  
  Revision  Changes    Path
  1.24      +3 -0      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.23
  retrieving revision 1.24
  diff -u -r1.23 -r1.24
  --- WrapXS.pm 2001/10/07 22:39:09     1.23
  +++ WrapXS.pm 2001/10/08 17:04:46     1.24
  @@ -483,6 +483,9 @@
       }
   
       my $base   = (split '::', $module)[0];
  +    unless (-e "lib/$base/XSLoader.pm") {
  +        $base = 'Apache';
  +    }
       my $loader = join '::', $base, 'XSLoader';
   
       my $fh = $self->open_class_file($module, '.pm');