On Tuesday 23 March 2004 12:04 am, Beau E. Cox wrote:
> -------------8<---------- Start Bug Report ------------8<----------
> 1. Problem Description:
>
> Using latest (CVS) Apache2, mod_perl 2, libapreq2:
>
> t/modules/apache_status fails
>
> console log:
>
> [...]
>
> error_log:
>
> [...]
> [Mon Mar 22 23:52:14 2004] [error] failed to resolve handler
> `Apache::Status' [Mon Mar 22 23:52:14 2004] [error] [client 127.0.0.1]
> Argument "2.03-dev" isn't numeric in numeric ge (>=)
> at /home/test/src/modperl2/modperl-2.0/blib/lib/Apache/Status.pm line 35.
> \nCompilation failed in require at (eval 95) line 3.\n
> [...]
I should have seen this, but my libapreq2 version is NOT numeric -
'2.03-dev', so compile error.
Also seems to be an if/else problem later. This patch works for me:
diff -Nau unpatched/Status.pm patched/Status.pm
--- unpatched/Status.pm 2004-03-23 00:48:50.212799704 -1000
+++ patched/Status.pm 2004-03-23 00:42:25.498285200 -1000
@@ -32,7 +32,8 @@
our $newQ;
if (eval { require Apache::Request }) {
- if ($Apache::Request::VERSION >= 2) {
+ my ( $ver ) = $Apache::Request::VERSION =~ /(\d+[\.]*\d*)/;
+ if ($ver >= 2) {
$newQ ||= sub { Apache::Request->new(@_) };
}
}
@@ -60,7 +61,7 @@
$newQ ||= sub { CGI->new };
}
}
-else {
+if (!$newQ) {
die "Need CGI.pm or Apache::Request to operate";
}
Aloha => Beau;
--
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html
