Make File::Glob more VMS-friendly (Charles Lane)

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

diff --git a/t/lib/io_sel.t b/t/lib/io_sel.t
index b9c1097..e0d7a45 100755 (executable)
--- a/t/lib/io_sel.t
+++ b/t/lib/io_sel.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';
     }
 }
 
@@ -49,7 +49,7 @@ $sel->remove([\*STDOUT, 5]);
 print "not " unless $sel->count == 0 && !defined($sel->bits);
 print "ok 9\n";
 
-if ($^O eq 'MSWin32') {  # 4-arg select is only valid on sockets
+if ($^O eq 'MSWin32' || $^O eq 'dos') {  # 4-arg select is only valid on sockets
     print "# skipping tests 10..15\n";
     for (10 .. 15) { print "ok $_\n" }
     $sel->add(\*STDOUT);  # update