Not ideal, but skip all of IO's tests if Socket is not built.

p4raw-id: //depot/perl@22955

1 files changed, 5 insertions, 0 deletions

diff --git a/ext/IO/t/IO.t b/ext/IO/t/IO.t
index a68e55cf8a..e30fd5091f 100644
--- a/ext/IO/t/IO.t
+++ b/ext/IO/t/IO.t
@@ -4,6 +4,11 @@ BEGIN
 {
 	chdir 't' if -d 't';
 	@INC = '../lib';
+	require config;
+	if ($Config::Config{'extensions'} !~ /\bSocket\b/) {
+		print "1..0 # Skip: Socket not built - IO.pm uses Socket";
+		exit 0;
+	}
 }
 
 use strict;