[PATCH] t/v2mirror: increase timeout for plackup bind+listen

[Eric Wong]

This test tends to fail sometimes, likely due to plackup
startup being slow on a cold page cache and having an
overloaded rotational HDD.
---
 t/v2mirror.t | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/t/v2mirror.t b/t/v2mirror.t
index 37d64e83..f9074e45 100644
--- a/t/v2mirror.t
+++ b/t/v2mirror.t
@@ -368,10 +368,11 @@ EOM
        # 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 = '') });