From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 18 Jun 2004 13:19:16 +0000 (+0000)
Subject: Not ideal, but skip all of IO's tests if Socket is not built.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=fedc905f6be3c931533a70fc7e1d4989201d1ae2;p=p5sagit%2Fp5-mst-13.2.git

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

p4raw-id: //depot/perl@22955
---

diff --git a/ext/IO/t/IO.t b/ext/IO/t/IO.t
index a68e55c..e30fd50 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;