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

[p5sagit/p5-mst-13.2.git] / ext / IO / t / IO.t

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