cvs commit: modperl-2.0/Apache-Test/lib/Apache TestServer.pm

[dougm]

dougm       01/07/23 13:31:23

  Modified:    Apache-Test/lib/Apache TestServer.pm
  Log:
  avoid "cannot connect ..." warnings when waiting for server to warmup
  
  Revision  Changes    Path
  1.13      +4 -1      modperl-2.0/Apache-Test/lib/Apache/TestServer.pm
  
  Index: TestServer.pm
  ===================================================================
  RCS file: /home/cvs/modperl-2.0/Apache-Test/lib/Apache/TestServer.pm,v
  retrieving revision 1.12
  retrieving revision 1.13
  diff -u -r1.12 -r1.13
  --- TestServer.pm     2001/07/20 01:48:11     1.12
  +++ TestServer.pm     2001/07/23 20:31:23     1.13
  @@ -346,7 +346,10 @@
           return 0;
       }
   
  -    my $server_up = sub { $self->{config}->http_raw_get('/index.html') };
  +    my $server_up = sub {
  +        local $SIG{__WARN__} = sub {}; #avoid "cannot connect ..." warnings
  +        $self->{config}->http_raw_get('/index.html');
  +    };
   
       if ($server_up->()) {
           return 1;