| Subject: | [PATCH] add a diag in t/15io-socket.t |
see attached patch
| Subject: | 0001-improve-diag.patch |
improve diag
diff --git a/t/15io-socket.t b/t/15io-socket.t
index 1b0cc4e..8acc9a7 100644
--- a/t/15io-socket.t
+++ b/t/15io-socket.t
@@ -17,7 +17,8 @@
LocalPort => 0,
);
- isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET )' );
+ isa_ok( $sock, "IO::Socket::IP", 'IO::Socket->new( Domain => AF_INET )' ) or
+ diag( " error was $@" );
$sock = IO::Socket->new(
Domain => AF_INET,