httpd-test-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From do...@apache.org
Subject cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestServer.pm
Date Sun, 07 Apr 2002 02:14:41 GMT
dougm       02/04/06 18:14:40

  Modified:    perl-framework/Apache-Test/lib/Apache TestServer.pm
  Log:
  this $SIG{CHLD} / $? status checking stuff does not work well on
  solaris or hpux.  more often than not get:
  
   waiting for server to start: 00:02
   server has died with status 255 (please examine t/logs/error_log)
   Terminated
  
  and yet the server has started just fine, can run t/TEST -run and all
  tests pass.
  disabling this until somebody can make the code work properly on all
  platforms.
  
  Revision  Changes    Path
  1.56      +16 -15    httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm
  
  Index: TestServer.pm
  ===================================================================
  RCS file: /home/cvs/httpd-test/perl-framework/Apache-Test/lib/Apache/TestServer.pm,v
  retrieving revision 1.55
  retrieving revision 1.56
  diff -u -r1.55 -r1.56
  --- TestServer.pm	6 Apr 2002 07:12:26 -0000	1.55
  +++ TestServer.pm	7 Apr 2002 02:14:40 -0000	1.56
  @@ -417,26 +417,27 @@
       }
       else {
           # XXX: try not to be POSIX dependent
  -        require POSIX;
  +#        require POSIX;
           $old_sig = $SIG{CHLD};
  -        $SIG{CHLD} = sub {
  -            while ((my $child = waitpid(-1, POSIX::WNOHANG())) > 0) {
  -                my $status  = $? >> 8;
  -                #error "got child exit $status";
  -                if ($status) {
  -                    $self->failed_msg("\nserver has died with status $status");
  -                    kill SIGTERM => $$;
  -                }
  -            }
  -        };
  +#XXX: this is not working well on solaris or hpux
  +#        $SIG{CHLD} = sub {
  +#            while ((my $child = waitpid(-1, POSIX::WNOHANG())) > 0) {
  +#                my $status  = $? >> 8;
  +#                #error "got child exit $status";
  +#                if ($status) {
  +#                    $self->failed_msg("\nserver has died with status $status");
  +#                    kill SIGTERM => $$;
  +#                }
  +#            }
  +#        };
   
           defined(my $pid = fork) or die "Can't fork: $!";
           unless ($pid) { # child
               my $status = system "$cmd";
  -            if ($status) {
  -                $status  = $? >> 8;
  -                #error "httpd didn't start! $status";
  -            }
  +#            if ($status) {
  +#                $status  = $? >> 8;
  +#                #error "httpd didn't start! $status";
  +#            }
               CORE::exit $status;
           }
       }
  
  
  

Mime
View raw message