X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Flib%2Fio_unix.t;h=2f6def0af76e5b02c88d2b177a8e111131dcb05b;hb=569bd3158af2276a406770e3d68e76b7da59b730;hp=62569a58447ae89b25f55de8826ed67405dd9e90;hpb=d2a0188286383355aaa13e586da8618f82242215;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t
index 62569a5..2f6def0 100644
--- a/t/lib/io_unix.t
+++ b/t/lib/io_unix.t
@@ -3,12 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
         chdir 't' if -d 't';
-        unshift @INC, '../lib' if -d '../lib';
-    }
-    # ``use IO::Socket'' executes too early below in the os2 block
-    if ($^O eq 'dos') {
-        print "1..0 # Skip: no fork\n";
-	exit 0;
+        @INC = '../lib';
     }
 }
 
@@ -27,7 +22,7 @@ BEGIN {
 	    $reason = 'IO extension unavailable';
 	}
 	elsif ($^O eq 'os2') {
-	    use IO::Socket;
+	    require IO::Socket;
 
 	    eval {IO::Socket::pack_sockaddr_un('/tmp/foo') || 1}
 	      or $@ !~ /not implemented/ or