t/v2mirror.t | 3 ++-

diff --git a/t/v2mirror.t b/t/v2mirror.t
index 37d64e83e53bff264bbc04a5eb4d5f22889b5d1c..f9074e45e6634e34aa9485079de0cced946e15f6 100644
--- a/t/v2mirror.t
+++ b/t/v2mirror.t
@@ -368,10 +368,11 @@ 	$td = start_script($cmd, $env, $rdr);
 	# wait for plackup socket()+bind()+listen()
 	my %opt = ( Proto => 'tcp', Type => Socket::SOCK_STREAM(),
 		PeerAddr => "$host:$port" );
-	for (0..50) {
+	for (0..100) {
 		tick();
 		last if IO::Socket::INET->new(%opt);
 	}
+	IO::Socket::INET->new(%opt) or xbail "connect $host:$port: $!";
 	my $dst = "$tmpdir/scrape";
 	@cmd = (qw(-clone -q), "http://$host:$port/v2", $dst);
 	run_script(\@cmd, undef, { 2 => \($err = '') });