Description: Add additional delay loop to test.pl, for ridiculously slow machines
 (like heavily loaded m68k/arm buildds)
Author: Angus Lees <gus@debian.org>
Forwarded: yes

--- a/test.pl
+++ b/test.pl
@@ -2831,6 +2831,7 @@
 	    }
 
         my $tries = ($opt_gdb || $opt_ddd)?30:15 ;
+	my $delay = 1 ;
         $httpdpid = 0 ;
         my $herr = 0 ;
 
@@ -2854,7 +2855,7 @@
                     }
                 }
 
-            sleep (1) ;
+            sleep ($delay++) ;
             }
         close HERR if ($herr) ;
 
@@ -2863,6 +2864,19 @@
 
         print "pid = $httpdpid  ok\n" ;
 
+	# additional delay step for really slow machines (m68k/arm)
+	$tries = 0 ;
+	while ($tries++ < 8)
+	  {
+	    use IO::Socket::INET;
+	    my $sock = new IO::Socket::INET
+	      PeerAddr => $host,
+	      PeerPort => $port,
+	      Timeout => 10;
+	    last if $sock;	# connected successfully
+	    sleep(1.5**$tries);
+	  }
+
 	close ERR ;
 	if (!open (ERR, "$httpderr"))
             {