dougm 01/04/03 10:17:11
Modified: Apache-Test/lib/Apache TestServer.pm
Log:
wait a bit longer for server to start
Revision Changes Path
1.3 +5 -3 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.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- TestServer.pm 2001/04/02 18:36:25 1.2
+++ TestServer.pm 2001/04/03 17:17:10 1.3
@@ -246,12 +246,14 @@
sleep 1;
}
- my $tries = 4;
+ my $tries = 6;
for (1..$tries) {
my $pid = $self->pid;
- if ($pid and $_ > 1) {
- print "ok\n";
+ if ($pid) {
+ if($_ > 1) {
+ print "ok\n";
+ }
}
else {
if ($_ == 1) {
