Author: stas Date: Fri Apr 8 10:29:58 2005 New Revision: 160567 URL: http://svn.apache.org/viewcvs?view=rev&rev=160567 Log: fix Apache2::Status which was bailing out on trying to load modules with dev versions like 2.121_02
Modified: perl/modperl/trunk/Changes perl/modperl/trunk/lib/Apache2/Status.pm Modified: perl/modperl/trunk/Changes URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?view=diff&r1=160566&r2=160567 ============================================================================== --- perl/modperl/trunk/Changes (original) +++ perl/modperl/trunk/Changes Fri Apr 8 10:29:58 2005 @@ -38,6 +38,9 @@ Apache->server() to Apache2::ServerUtil->server() [Geoffrey Young] +fix Apache2::Status which was bailing out on trying to load modules +with dev versions like 2.121_02 [Stas] + When parsing Makefile.PL MP_* options, handle correctly the MP_FOO=0 entries [Philip M. Gollucci <[EMAIL PROTECTED]>] Modified: perl/modperl/trunk/lib/Apache2/Status.pm URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/lib/Apache2/Status.pm?view=diff&r1=160566&r2=160567 ============================================================================== --- perl/modperl/trunk/lib/Apache2/Status.pm (original) +++ perl/modperl/trunk/lib/Apache2/Status.pm Fri Apr 8 10:29:58 2005 @@ -82,7 +82,9 @@ # if !$opt we skip the testing for the option return 0 if $opt && !status_config($r, $opt); return 0 unless eval { require $file }; - return 0 unless $module->VERSION && $module->VERSION >= $version; + my $mod_ver = $module->VERSION; + $mod_ver =~ s/_.*//; # handle dev versions like 2.121_02 + return 0 unless $mod_ver && $mod_ver >= $version; return 1; }