svn commit: r156499 - perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/WrapXS.pm

[joes]

Author: joes
Date: Mon Mar  7 20:54:34 2005
New Revision: 156499

URL: http://svn.apache.org/viewcvs?view=rev&rev=156499
Log:
Needs mod_perl2.


Modified:
    perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/WrapXS.pm

Modified: perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/WrapXS.pm
URL: 
http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/WrapXS.pm?view=diff&r1=156498&r2=156499
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/WrapXS.pm 
(original)
+++ perl/modperl/branches/apache2-rename-unstable/lib/ModPerl/WrapXS.pm Mon Mar 
 7 20:54:34 2005
@@ -397,9 +397,9 @@
 
 sub module_version {
     local $_ = shift;
-    require mod_perl;
+    require mod_perl2;
     # XXX: for now APR gets its libapr-0.9 version
-    return /^APR/ ? "0.009000" : "$mod_perl::VERSION";
+    return /^APR/ ? "0.009000" : "$mod_perl2::VERSION";
 }
 
 sub write_makefilepl {
@@ -419,7 +419,7 @@
     $deps = Dumper $deps;
 
     my $noedit_warning = $self->ModPerl::Code::noedit_warning_hash();
-    require mod_perl;
+    require mod_perl2;
     my $version = module_version($class);
 
     print $fh <<EOF;
@@ -1133,7 +1133,7 @@
         $len = length $_ if length $_ > $len;
     }
 
-    require mod_perl;
+    require mod_perl2;
     $len += length '$::VERSION';
     for (@modules) {
         my $ver = module_version($_);