perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject svn commit: r157559 - perl/modperl/branches/apache2-rename-unstable/Makefile.PL
Date Tue, 15 Mar 2005 16:31:19 GMT
Author: geoff
Date: Tue Mar 15 08:31:18 2005
New Revision: 157559

URL: http://svn.apache.org/viewcvs?view=rev&rev=157559
Log:
get version foo right

Modified:
    perl/modperl/branches/apache2-rename-unstable/Makefile.PL

Modified: perl/modperl/branches/apache2-rename-unstable/Makefile.PL
URL: http://svn.apache.org/viewcvs/perl/modperl/branches/apache2-rename-unstable/Makefile.PL?view=diff&r1=157558&r2=157559
==============================================================================
--- perl/modperl/branches/apache2-rename-unstable/Makefile.PL (original)
+++ perl/modperl/branches/apache2-rename-unstable/Makefile.PL Tue Mar 15 08:31:18 2005
@@ -125,7 +125,7 @@
     set_modperl_version();
 
     if ($old_modperl_version) {
-        $old_modperl_version =~ s/(\d\d)(\d\d)/$1_$2/;
+        $old_modperl_version =~ s/(\d\d\d?)(\d\d)/$1_$2/;
         my $vstring = "mod_perl/$old_modperl_version";
         print "$vstring installation detected...";
 
@@ -136,7 +136,7 @@
         my $path = canonpath $old_modperl_pm;
         # XXX: doesn't handle relative paths yet
         # if PREFIX=/foo/bar is used, and it's not the same as the
-        # path where mod_perl < 1.99_22 is installed
+        # path where mod_perl < 1.999_22 is installed
         if ($prefix && $path !~ /^$prefix/) {
             print "ok (will install mod_perl/$VERSION into PREFIX=$prefix, " .
                 "no collision)\n";



Mime
View raw message