dos-djgpp updates (from Laszlo Molnar <laszlo.molnar@eth.ericsson.se>)

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

diff --git a/t/lib/io_poll.t b/t/lib/io_poll.t
index d907d54..c179ce9 100755 (executable)
--- a/t/lib/io_poll.t
+++ b/t/lib/io_poll.t
@@ -3,7 +3,7 @@
 BEGIN {
     unless(grep /blib/, @INC) {
         chdir 't' if -d 't';
-        @INC = '../lib' if -d '../lib';
+        unshift @INC, '../lib' if -d '../lib';
     }
 }
 
@@ -34,6 +34,11 @@ print "ok 2\n";
 
 $poll->poll(0.1);
 
+if ($^O eq 'MSWin32') {
+print "ok 3 # skipped, doesn't work on non-socket fds\n";
+print "ok 4 # skipped, doesn't work on non-socket fds\n";
+}
+else {
 print "not "
        unless $poll->events($stdout) == POLLOUT;
 print "ok 3\n";
@@ -41,6 +46,7 @@ print "ok 3\n";
 print "not "
        if $poll->events($dupout);
 print "ok 4\n";
+}
 
 my @h = $poll->handles;
 print "not "