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

[stas]

stas        01/11/28 23:30:24

  Modified:    perl-framework/Apache-Test/lib/Apache TestServer.pm
  Log:
  - bug fix: return 1 on success, rather then 0
  
  Revision  Changes    Path
  1.42      +1 -1      
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.41
  retrieving revision 1.42
  diff -u -r1.41 -r1.42
  --- TestServer.pm     2001/11/22 03:13:04     1.41
  +++ TestServer.pm     2001/11/29 07:30:24     1.42
  @@ -480,7 +480,7 @@
           sleep 1;
           if ($server_up->()) {
               print $preamble, "ok (waited $delta secs)\n";
  -            last;
  +            return 1;
           }
           elsif ($delta > $wait_secs) {
               print $preamble, "giving up after $delta secs\n";