Return-Path: Delivered-To: apmail-httpd-test-cvs-archive@httpd.apache.org Received: (qmail 87261 invoked by uid 500); 29 Nov 2001 07:47:25 -0000 Mailing-List: contact test-cvs-help@httpd.apache.org; run by ezmlm Precedence: bulk Reply-To: test-dev@httpd.apache.org list-help: list-unsubscribe: list-post: Delivered-To: mailing list test-cvs@httpd.apache.org Received: (qmail 87250 invoked from network); 29 Nov 2001 07:47:24 -0000 Date: 29 Nov 2001 07:30:25 -0000 Message-ID: <20011129073025.77704.qmail@icarus.apache.org> From: stas@apache.org To: httpd-test-cvs@apache.org Subject: cvs commit: httpd-test/perl-framework/Apache-Test/lib/Apache TestServer.pm X-Spam-Rating: daedalus.apache.org 1.6.2 0/1000/N 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";