t/CMAETest/ConnectFail.pm: propagate non-test warnings.

lestrrat-p5 · Jul 30, 2015 · 0412e97 · 0412e97
1 parent 9110fe9
commit 0412e97
Showing 1 changed file with 6 additions and 2 deletions.
diff --git a/t/CMAETest/ConnectFail.pm b/t/CMAETest/ConnectFail.pm
@@ -19,7 +19,11 @@ sub run {
     my $warn_called = 0;
     local $SIG{__WARN__} = sub {
 #        like( $_[0], qr/^failed to connect to $bogus_server/);
-        $warn_called++;
+        if ( $_[0] =~ /^failed to connect to $bogus_server/ ) {
+            $warn_called++;
+        } else {
+            warn @_;
+        }
     };
 
     foreach my $i (1..50) {
@@ -43,4 +47,4 @@ sub run {
     done_testing;
 }
 
-1;
+1;