Fix crypt.t and fs.t tests

[p5sagit/p5-mst-13.2.git] / t / io / tell.t

diff --git a/t/io/tell.t b/t/io/tell.t
index c840c92..416b869 100755 (executable)
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -2,11 +2,16 @@
 
 # $RCSfile: tell.t,v $$Revision$$Date$
 
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+}
+
 print "1..23\n";
 
 $TST = 'tst';
 
-$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'dos' or
+$Is_Dosish = ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'dos' or
              $^O eq 'os2' or $^O eq 'mint' or $^O eq 'cygwin');
 
 open($TST, 'harness') || (die "Can't open harness");
@@ -50,7 +55,7 @@ if ($. == 0) { print "not ok 14\n"; } else { print "ok 14\n"; }
 
 $curline = $.;
 open(other, 'harness') || (die "Can't open harness: $!");
-binmode other if $^O eq 'MSWin32';
+binmode other if (($^O eq 'MSWin32') || ($^O eq 'NetWare'));
 
 {
     local($.);