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-Tag: accepted/trunk/20130322.191538~21880
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fedc905f6be3c931533a70fc7e1d4989201d1ae2;p=platform%2Fupstream%2Fperl.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;