perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: modperl-2.0/lib/ModPerl WrapXS.pm
Date Mon, 08 Oct 2001 17:04:46 GMT
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');
  
  
  

Mime
View raw message