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=e1c89c4ebd8bc99a5ad43a1b0bfcd12e5b1238bd;hpb=202975e60ee076fd8796877b28774137051a97c4;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t
index e1c89c4..2f6def0 100644
--- a/t/lib/io_unix.t
+++ b/t/lib/io_unix.t
@@ -3,7 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
         chdir 't' if -d 't';
-        unshift @INC, '../lib' if -d '../lib';
+        @INC = '../lib';
     }
 }
 
@@ -22,11 +22,13 @@ 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
 		$reason = 'compiled without TCP/IP stack v4';
+	} elsif ($^O eq 'qnx') {
+	    $reason = 'Not implemented';
 	}
 	undef $reason if $^O eq 'VMS' and $Config{d_socket};
 	if ($reason) {