Author: stas
Date: Sun May 8 00:18:47 2005
New Revision: 169131
URL: http://svn.apache.org/viewcvs?rev=169131&view=rev
Log:
Makefile.PL: fix the pre-rename mp2 install diagnostics code, to use
the mp version of 1.999xx and not 1.999_xx, as the latter is
unsuitable for numerical comparison
Modified:
perl/modperl/trunk/Changes
perl/modperl/trunk/Makefile.PL
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?rev=169131&r1=169130&r2=169131&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Sun May 8 00:18:47 2005
@@ -12,6 +12,10 @@
=item 1.999_24-dev
+Makefile.PL: fix the pre-rename mp2 install diagnostics code, to use
+the mp version of 1.999xx and not 1.999_xx, as the latter is
+unsuitable for numerical comparison [Stas].
+
add APR::Status::is_(EACCES|ENOENT), and use in ModPerl::RegistryCooker
to return, as appropriate, Apache2::Const::(FORBIDDEN|NOT_FOUND),
based on [EMAIL PROTECTED] Also remove a check in modperl_slurp_filename
Modified: perl/modperl/trunk/Makefile.PL
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/Makefile.PL?rev=169131&r1=169130&r2=169131&view=diff
==============================================================================
--- perl/modperl/trunk/Makefile.PL (original)
+++ perl/modperl/trunk/Makefile.PL Sun May 8 00:18:47 2005
@@ -126,8 +126,9 @@
set_modperl_version();
if ($old_modperl_version) {
- $old_modperl_version =~ s/(\d\d\d?)(\d\d)/$1_$2/;
- my $vstring = "mod_perl/$old_modperl_version";
+ (my $old_modperl_version_str = $old_modperl_version)
+ =~ s/(\d\d\d?)(\d\d)/$1_$2/;
+ my $vstring = "mod_perl/$old_modperl_version_str";
print "$vstring installation detected...";
my $prefix;
