Author: stas
Date: Fri Apr 8 10:11:43 2005
New Revision: 160564
URL: http://svn.apache.org/viewcvs?view=rev&rev=160564
Log:
When parsing Makefile.PL MP_* options, handle correctly the MP_FOO=0
entries
Contributed by: Philip M. Gollucci <[EMAIL PROTECTED]>
Modified:
perl/modperl/trunk/Changes
perl/modperl/trunk/lib/ModPerl/BuildOptions.pm
Modified: perl/modperl/trunk/Changes
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&r1=160563&r2=160564
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Fri Apr 8 10:11:43 2005
@@ -38,6 +38,9 @@
Apache->server() to Apache2::ServerUtil->server()
[Geoffrey Young]
+When parsing Makefile.PL MP_* options, handle correctly the MP_FOO=0
+entries [Philip M. Gollucci <[EMAIL PROTECTED]>]
+
init the anonsub hash for base perl and each vhost +Parent (previously
was init'ed only for the base perl) [Stas]
Modified: perl/modperl/trunk/lib/ModPerl/BuildOptions.pm
URL:
http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/ModPerl/BuildOptions.pm?view=diff&r1=160563&r2=160564
==============================================================================
--- perl/modperl/trunk/lib/ModPerl/BuildOptions.pm (original)
+++ perl/modperl/trunk/lib/ModPerl/BuildOptions.pm Fri Apr 8 10:11:43 2005
@@ -101,7 +101,7 @@
if (/^MP_/) {
my($key, $val) = split $param_qr, $_, 2;
- $val ||= "";
+ $val ||= "" unless defined $val && $val eq '0';
$continue = $val =~ s/\\$// ? $key : "";
if (!$table->{$key} and $opts & UNKNOWN_FATAL) {
