On Tuesday 23 March 2004 01:27 am, Beau E. Cox wrote:
> On Tuesday 23 March 2004 12:55 am, Beau E. Cox wrote:
> > 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:
> > [...]
>
> Still did't work. Startup fails like so:
>
> Starting httpd[Tue Mar 23 01:03:34 2004] [error] Subroutine
> Apache::Status::status_mason0001 redefined
> at
> /home/test/perl/5.8.3-ithread/lib/site_perl/5.8.3/i686-linux-thread-multi/A
>pache/Status.pm line 140.\nCompilation failed in require
> at /home/test/httpd/conf/wm-startup2.pl line 41.\nBEGIN failed--compilation
> aborted at /home/test/httpd/conf/wm-startup2.pl line 41.\nCompilation
> failed in require at (eval 2) line 1.\n
> [Tue Mar 23 01:03:34 2004] [error] Can't load Perl
> file: /home/test/httpd/conf/wm-startup2.pl for server cathy.beaucox.com:0,
> exiting...
> [...]
The Saga continues...
Well, I had to get rid of your warnings to make my server start.
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 02:44:16.383861656 -1000
@@ -15,7 +15,13 @@
package Apache::Status;
use strict;
-use warnings FATAL => 'all';
+#use warnings; #XXX FATAL => 'all';
+no warnings; # 'redefine';
+
+# XXX: something is wrong with bleadperl, it warns about redefine
+# warnings, when no warnings 'redefine' is set (test with 5.8.0). even
+# when used with 'no warnings' it still barks on redefinining the
+# constants
use mod_perl 1.99;
@@ -32,7 +38,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 +67,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
