7 files changed, 12 insertions, 6 deletions
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index cadbfd5658..854f146337 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -22,7 +22,7 @@ $Dfile = "Op.dbmx.pag";
 if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/filehand.t b/t/lib/filehand.t
index cedc2ebcb8..08cae71872 100755
--- a/t/lib/filehand.t
+++ b/t/lib/filehand.t
@@ -64,6 +64,12 @@ autoflush STDOUT 1;
 print "not " unless ($|);
 print "ok 10\n";
 
+if ($^O eq 'dos')
+{
+    printf("ok %d\n",11);
+    exit(0);
+}
+
 ($rd,$wr) = FileHandle::pipe;
 
 if ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'MSWin32') {
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t
index ebc9f56bc0..fea0cd7fb7 100755
--- a/t/lib/gdbm.t
+++ b/t/lib/gdbm.t
@@ -24,7 +24,7 @@ $Dfile = "Op.dbmx.pag";
 if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/io_sel.t b/t/lib/io_sel.t
index b9c1097404..3dc651bbc2 100755
--- a/t/lib/io_sel.t
+++ b/t/lib/io_sel.t
@@ -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
diff --git a/t/lib/io_tell.t b/t/lib/io_tell.t
index d8ebae24fd..2009d610db 100755
--- a/t/lib/io_tell.t
+++ b/t/lib/io_tell.t
@@ -27,7 +27,7 @@ print "1..13\n";
 use IO::File;
 
 $tst = IO::File->new("$tell_file","r") || die("Can't open $tell_file");
-binmode $tst if $^O eq 'MSWin32';
+binmode $tst if ($^O eq 'MSWin32' or $^O eq 'dos');
 if ($tst->eof) { print "not ok 1\n"; } else { print "ok 1\n"; }
 
 $firstline = <$tst>;
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index ad25011d76..90dbb841e6 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -27,7 +27,7 @@ $Dfile = "Op.dbmx.pag";
 if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32') {
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/thread.t b/t/lib/thread.t
index 798adc12be..5ac9e5bf71 100755
--- a/t/lib/thread.t
+++ b/t/lib/thread.t
@@ -1,4 +1,4 @@
-#!perl
+#!./perl
 
 BEGIN {
     chdir 't' if -d 't';