Re: [mp2] Solaris: protocol/pseudo_http failure

[prev] [thread] [next] [Date index for 2004/11/04]

Mr jeremy pennington wrote:
> I am new to modperl and have been trying to get it
> running for the past week but not having any luck. The
> first time I run make test it errored out and said
> unable to start the server, but I tried again later
> and got past that and now I get the following errors.
> I am running solaris 9, apache 2.0.52, mod_perl
> 1.99_17, perl 5.6.1. I greatly appreciate any help,
> ideas, suggestions, trys.
[...]

thanks for the very detailed report, Jeremy.

I'm splitting this thread in two, since I believe these two failures are 
unrelated. Let's deal here with protocol/pseudo_http

> # t/TEST -verbose protocol/pseudo_http

> # Using Apache/Test.pm version 1.16
> ok 1
> # testing : greeting
> # expected: HELO
> # received: 
> not ok 2
> # Failed test 2 in t/protocol/pseudo_http.t at line 63
> # send: HELO
> # testing : login
> # expected: Login:
> # received: 
> not ok 3
[...]
> --------------------------------------------------------------------------------
> t/protocol/pseudo_http.t                      13   11 
> 84.62%  2-8, 10-13
> Failed 1/1 test scripts, 0.00% okay. 11/13 subtests
> failed, 15.38% okay.
> [warning] server localhost:8529 shutdown
> [  error] error running tests (please examine
> t/logs/error_log)
> [   info] an old core file has been found:
> /usr/local/src/mod_perl-1.99_17/t/core
> 
> 
> Error_log from  t/TEST -verbose protocol/pseudo_http 
[...]
> [Wed Nov 03 20:40:24 2004] [error] Argument
> "APR::SO_NONBLOCK" isn't numeric in
> subroutine entry at
> /usr/local/src/mod_perl-1.99_17/t/protocol/TestProtocol/pseu
> do_http.pm line 33.\n
> [Wed Nov 03 20:40:24 2004] [error] Argument
> "APR::SO_NONBLOCK" isn't numeric in
> subroutine entry at
> /usr/local/src/mod_perl-1.99_17/t/protocol/TestProtocol/pseu
> do_http.pm line 33.\n

That's strange since exactly the same code in the other tests under 
t/protocol/TestProtocol doesn't fail.

Please tell us if there is any difference if you apply this patch:

Index: t/protocol/TestProtocol/pseudo_http.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/pseudo_http.pm,v
retrieving revision 1.7
diff -u -r1.7 pseudo_http.pm
--- t/protocol/TestProtocol/pseudo_http.pm      18 Aug 2004 07:44:38 -0000 
     1.7
+++ t/protocol/TestProtocol/pseudo_http.pm      4 Nov 2004 04:09:07 -0000
@@ -30,7 +30,8 @@
      my $socket = $c->client_socket;

      if ($socket->opt_get(APR::SO_NONBLOCK)) {
-        $socket->opt_set(APR::SO_NONBLOCK => 0);
+        my $opt = APR::SO_NONBLOCK();
+        $socket->opt_set($opt => 0);
      }

      if ((my $rc = greet($c)) != Apache::OK) {

and reverting the above one, applying the following one (two different 
attempts):

Index: t/protocol/TestProtocol/pseudo_http.pm
===================================================================
RCS file: /home/cvs/modperl-2.0/t/protocol/TestProtocol/pseudo_http.pm,v
retrieving revision 1.7
diff -u -r1.7 pseudo_http.pm
--- t/protocol/TestProtocol/pseudo_http.pm      18 Aug 2004 07:44:38 -0000 
     1.7
+++ t/protocol/TestProtocol/pseudo_http.pm      4 Nov 2004 04:10:44 -0000
@@ -30,7 +30,7 @@
      my $socket = $c->client_socket;

      if ($socket->opt_get(APR::SO_NONBLOCK)) {
-        $socket->opt_set(APR::SO_NONBLOCK => 0);
+        $socket->opt_set(APR::SO_NONBLOCK, 0);
      }

      if ((my $rc = greet($c)) != Apache::OK) {

        -- 
        __________________________________________________________________
Stas Bekman            JAm_pH ------> Just Another mod_perl Hacker
http://stason.org/     mod_perl Guide ---> http://perl.apache.org
mailto:stas@xxxxxx.xxx http://use.perl.org http://apacheweek.com
http://modperlbook.org http://apache.org   http://ticketmaster.com

-- 
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