1
Description: Add additional delay loop to test.pl, for ridiculously slow machines
2
(like heavily loaded m68k/arm buildds)
3
Author: Angus Lees <gus@debian.org>
10
my $tries = ($opt_gdb || $opt_ddd)?30:15 ;
22
close HERR if ($herr) ;
24
@@ -2717,6 +2718,19 @@
26
print "pid = $httpdpid ok\n" ;
28
+ # additional delay step for really slow machines (m68k/arm)
30
+ while ($tries++ < 8)
32
+ use IO::Socket::INET;
33
+ my $sock = new IO::Socket::INET
37
+ last if $sock; # connected successfully
42
if (!open (ERR, "$httpderr"))