(Retracted by #8395.)

[p5sagit/p5-mst-13.2.git] / t / lib / io_unix.t

diff --git a/t/lib/io_unix.t b/t/lib/io_unix.t
index e1c89c4..2f6def0 100644 (file)
--- 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) {