X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fio_udp.t;h=02112a27e317db47defd1cd8cf7f66d9b5cc639c;hb=45c0de28763808112fd2f46ea311b6bb0c6050b3;hp=435533f6c4ae3023cb42518087d5cc89fcc99017;hpb=aa854799af20b80973df4e295167b2fda1fc7a9c;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/io_udp.t b/t/lib/io_udp.t
index 435533f..02112a2 100755
--- a/t/lib/io_udp.t
+++ b/t/lib/io_udp.t
@@ -11,13 +11,25 @@ use Config;
 
 BEGIN {
     if(-d "lib" && -f "TEST") {
-        if ( ($Config{'extensions'} !~ /\bSocket\b/ ||
-              $Config{'extensions'} !~ /\bIO\b/	||
-	      ($^O eq 'os2') || $^O eq 'apollo')    &&
-              !(($^O eq 'VMS') && $Config{d_socket})) {
-	    print "1..0\n";
+	my $reason;
+
+	if ($Config{'extensions'} !~ /\bSocket\b/) {
+	  $reason = 'Socket was not built';
+	}
+	elsif ($Config{'extensions'} !~ /\bIO\b/) {
+	  $reason = 'IO was not built';
+	}
+	elsif ($^O eq 'os2') {
+	  $reason = "blocks on OS/2, not debugged yet";
+	}
+	elsif ($^O eq 'apollo') {
+	  $reason = "unknown *FIXME*";
+	}
+	undef $reason if $^O eq 'VMS' and $Config{d_socket};
+	if ($reason) {
+	    print "1..0 # Skip: $reason\n";
 	    exit 0;
-        }
+	}
     }
 }