Use '!' to mark native integer packings instead of '_'.

[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 3d9ed50..30e7c0e 100644 (file)
--- a/t/lib/io_unix.t
+++ b/t/lib/io_unix.t
@@ -1,16 +1,20 @@
-
 #!./perl
 
 BEGIN {
     unless(grep /blib/, @INC) {
         chdir 't' if -d 't';
-        @INC = '../lib' if -d '../lib';
+        unshift @INC, '../lib' if -d '../lib';
     }
 }
 
 use Config;
 
 BEGIN {
+    if (!$Config{d_fork}) {
+        print "1..0\n";
+        exit 0;
+    }
+
     if(-d "lib" && -f "TEST") {
         if ( ($Config{'extensions'} !~ /\bSocket\b/ ||
               $Config{'extensions'} !~ /\bIO\b/)    &&