cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestServer.pm

[dougm]

dougm       01/10/21 23:15:36

  Modified:    perl-framework/Apache-Test/lib/Apache TestServer.pm
  Log:
  wait a bit longer for server to start
  
  Revision  Changes    Path
  1.40      +4 -3      
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.39
  retrieving revision 1.40
  diff -u -r1.39 -r1.40
  --- TestServer.pm     2001/10/20 18:05:01     1.39
  +++ TestServer.pm     2001/10/22 06:15:36     1.40
  @@ -426,7 +426,7 @@
       $mpm = "($mpm MPM)" if $mpm;
       print "using $version $mpm\n";
   
  -    my $tries = 5;
  +    my $tries = 6;
   
       for (1..$tries) {
           my $pid = $self->pid;
  @@ -439,8 +439,9 @@
               if ($_ == 1) {
                   print "waiting for server to warm up...";
               }
  -            elsif ($_ >= $tries) {
  +            elsif ($_ > $tries) {
                   print "giving up\n";
  +                last;
               }
               else {
                   print "...";
  @@ -452,7 +453,7 @@
       }
   
       if (my $pid = $self->pid) {
  -        print "server $self->{name} started\n";
  +        print "\nserver $self->{name} started\n";
   
           my $vh = $config->{vhosts};
           my $by_port = sub { $vh->{$a}->{port} <=> $vh->{$b}->{port} };