NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.

p4raw-id: //depot/perl@10643

55 files changed, 133 insertions, 80 deletions

diff --git a/t/comp/multiline.t b/t/comp/multiline.t
index 309ac71e9b..b4b04dad14 100755
--- a/t/comp/multiline.t
+++ b/t/comp/multiline.t
@@ -36,7 +36,7 @@ if ($z eq $y) {print "ok 2\n";} else {print "not ok 2\n";}
 
 if ($count == 7) {print "ok 3\n";} else {print "not ok 3\n";}
 
-$_ = ($^O eq 'MSWin32') ? `type Comp.try`
+$_ = (($^O eq 'MSWin32') || $^O eq 'NetWare') ? `type Comp.try`
     : ($^O eq 'MacOS') ? `catenate Comp.try`
     : `cat Comp.try`;
 
diff --git a/t/comp/script.t b/t/comp/script.t
index 9ae83e4304..4891f5bae7 100755
--- a/t/comp/script.t
+++ b/t/comp/script.t
@@ -5,7 +5,8 @@
 print "1..3\n";
 
 $PERL = ($^O eq 'MSWin32') ? '.\perl'
-    : ($^O eq 'MacOS') ? $^X : './perl';
+        : (($^O eq 'NetWare') ? 'perl'
+           : ($^O eq 'MacOS') ? $^X : './perl');
 $x = `$PERL -le "print 'ok';"`;
 
 if ($x eq "ok\n") {print "ok 1\n";} else {print "not ok 1\n";}
diff --git a/t/io/argv.t b/t/io/argv.t
index 2b8f23b426..5df3420dd9 100755
--- a/t/io/argv.t
+++ b/t/io/argv.t
@@ -18,6 +18,9 @@ close try;
 if ($^O eq 'MSWin32') {
   $x = `.\\perl -e "while (<>) {print \$.,\$_;}" Io_argv1.tmp Io_argv1.tmp`;
 }
+elsif ($^O eq 'NetWare') {
+  $x = `perl -e "while (<>) {print \$.,\$_;}" Io_argv1.tmp Io_argv1.tmp`;
+}
 else {
   $x = `./perl -e 'while (<>) {print \$.,\$_;}' Io_argv1.tmp Io_argv1.tmp`;
 }
@@ -26,6 +29,9 @@ if ($x eq "1a line\n2a line\n") {print "ok 1\n";} else {print "not ok 1\n";}
 if ($^O eq 'MSWin32') {
   $x = `.\\perl -le "print 'foo'" | .\\perl -e "while (<>) {print \$_;}" Io_argv1.tmp -`;
 }
+elsif ($^O eq 'NetWare') {
+  $x = `perl -le "print 'foo'" | perl -e "while (<>) {print \$_;}" Io_argv1.tmp -`;
+}
 else {
   $x = `echo foo|./perl -e 'while (<>) {print $_;}' Io_argv1.tmp -`;
 }
@@ -34,6 +40,9 @@ if ($x eq "a line\nfoo\n") {print "ok 2\n";} else {print "not ok 2\n";}
 if ($^O eq 'MSWin32') {
   $x = `.\\perl -le "print 'foo'" |.\\perl -e "while (<>) {print \$_;}"`;
 }
+elsif ($^O eq 'NetWare') {
+  $x = `perl -le "print 'foo'" | perl -e "while (<>) {print \$_;}"`;
+}
 else {
   $x = `echo foo|./perl -e 'while (<>) {print $_;}'`;
 }
diff --git a/t/io/dup.t b/t/io/dup.t
index 9b656ec8b3..a641db752a 100755
--- a/t/io/dup.t
+++ b/t/io/dup.t
@@ -28,7 +28,7 @@ close(STDERR);
 open(STDOUT,">&dupout");
 open(STDERR,">&duperr");
 
-if ($^O eq 'MSWin32') { print `type Io.dup` }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print `type Io.dup` }
 else                  { system 'cat Io.dup' }
 unlink 'Io.dup';
 
diff --git a/t/io/fs.t b/t/io/fs.t
index c445d5e6bb..091bd44fb0 100755
--- a/t/io/fs.t
+++ b/t/io/fs.t
@@ -9,7 +9,7 @@ BEGIN {
 
 use Config;
 
-$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');
 
 if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
@@ -18,17 +18,17 @@ if (defined &Win32::IsWinNT && Win32::IsWinNT()) {
 
 print "1..29\n";
 
-$wd = (($^O eq 'MSWin32') ? `cd` : `pwd`);
+$wd = ((($^O eq 'MSWin32') || ($^O eq 'NetWare')) ? `cd` : `pwd`);
 chop($wd);
 
-if ($^O eq 'MSWin32') { `rmdir /s /q tmp 2>nul`; `mkdir tmp`; }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { `rmdir /s /q tmp 2>nul`; `mkdir tmp`; }
 else {  `rm -f tmp 2>/dev/null; mkdir tmp 2>/dev/null`; }
 chdir './tmp';
 `/bin/rm -rf a b c x` if -x '/bin/rm';
 
 umask(022);
 
-if ($^O eq 'MSWin32') { print "ok 1 # skipped: bogus umask()\n"; }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print "ok 1 # skipped: bogus umask()\n"; }
 elsif ((umask(0)&0777) == 022) {print "ok 1\n";} else {print "not ok 1\n";}
 open(fh,'>x') || die "Can't create x";
 close(fh);
@@ -58,7 +58,7 @@ elsif (($mode & 0777) == 0666)
     {print "ok 5\n";} 
 else {print "not ok 5\n";}
 
-$newmode = $^O eq 'MSWin32' ? 0444 : 0777;
+$newmode = (($^O eq 'MSWin32') || ($^O eq 'NetWare')) ? 0444 : 0777;
 if ((chmod $newmode,'a') == 1) {print "ok 6\n";} else {print "not ok 6\n";}
 
 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
@@ -68,7 +68,7 @@ elsif (($mode & 0777) == $newmode) {print "ok 7\n";}
 else {print "not ok 7\n";}
 
 $newmode = 0700;
-if ($^O eq 'MSWin32') {
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) {
     chmod 0444, 'x';
     $newmode = 0666;
 }
@@ -109,9 +109,9 @@ $foo = (utime 500000000,500000000 + $delta,'b');
 if ($foo == 1) {print "ok 16\n";} else {print "not ok 16 $foo\n";}
 ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
     $blksize,$blocks) = stat('b');
-if ($^O eq 'MSWin32') { print "ok 17 # skipped: bogus (stat)[1]\n"; }
+if (($^O eq 'MSWin32') || ($^O eq 'NetWare')) { print "ok 17 # skipped: bogus (stat)[1]\n"; }
 elsif ($ino) {print "ok 17\n";} else {print "not ok 17\n";}
-if ($wd =~ m#$Config{'afsroot'}/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32')
+if ($wd =~ m#$Config{'afsroot'}/# || $^O eq 'amigaos' || $^O eq 'dos' || $^O eq 'MSWin32' || $^O eq 'NetWare')
     {print "ok 18 # skipped: granularity of the filetime\n";}
 elsif ($atime == 500000000 && $mtime == 500000000 + $delta)
     {print "ok 18\n";}
@@ -135,7 +135,7 @@ unlink 'c';
 chdir $wd || die "Can't cd back to $wd";
 
 unlink 'c';
-if ($^O ne 'MSWin32' and `ls -l perl 2>/dev/null` =~ /^l.*->/) {
+if ((($^O eq 'MSWin32') || ($^O eq 'NetWare')) and `ls -l perl 2>/dev/null` =~ /^l.*->/) {
     # we have symbolic links
     system("cp TEST TEST$$");
     # we have to copy because e.g. GNU grep gets huffy if we have
diff --git a/t/io/inplace.t b/t/io/inplace.t
index ff410a7b5f..4582cc232a 100755
--- a/t/io/inplace.t
+++ b/t/io/inplace.t
@@ -13,6 +13,12 @@ if ($^O eq 'MSWin32') {
   `.\\perl -le "print 'foo'" > .b`;
   `.\\perl -le "print 'foo'" > .c`;
 }
+elsif ($^O eq 'NetWare') {
+  $CAT = 'perl -e "print<>"';
+  `perl -le "print 'foo'" > .a`;
+  `perl -le "print 'foo'" > .b`;
+  `perl -le "print 'foo'" > .c`;
+}
 elsif ($^O eq 'VMS') {
   $CAT = 'MCR []perl. -e "print<>"';
   `MCR []perl. -le "print 'foo'" > ./.a`;
diff --git a/t/io/iprefix.t b/t/io/iprefix.t
index 10a5c5f686..6070223454 100755
--- a/t/io/iprefix.t
+++ b/t/io/iprefix.t
@@ -13,6 +13,12 @@ if ($^O eq 'MSWin32') {
   `.\\perl -le "print 'foo'" > .b`;
   `.\\perl -le "print 'foo'" > .c`;
 }
+elsif ($^O eq 'NetWare') {
+  $CAT = 'perl -e "print<>"';
+  `perl -le "print 'foo'" > .a`;
+  `perl -le "print 'foo'" > .b`;
+  `perl -le "print 'foo'" > .c`;
+}
 elsif ($^O eq 'VMS') {
   $CAT = 'MCR []perl. -e "print<>"';
   `MCR []perl. -le "print 'foo'" > ./.a`;
diff --git a/t/io/tell.t b/t/io/tell.t
index c840c9232a..f2336dd631 100755
--- a/t/io/tell.t
+++ b/t/io/tell.t
@@ -6,7 +6,7 @@ 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 +50,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($.);
diff --git a/t/lib/anydbm.t b/t/lib/anydbm.t
index 08d1f7c947..30b3c7ac14 100755
--- a/t/lib/anydbm.t
+++ b/t/lib/anydbm.t
@@ -16,7 +16,7 @@ use Fcntl;
 
 print "1..12\n";
 
-$Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' or $^O eq 'dos' or
+$Is_Dosish = ($^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare' or $^O eq 'dos' or
 	      $^O eq 'os2' or $^O eq 'mint');
 
 unlink <Op_dbmx*>;
diff --git a/t/lib/b-stash.t b/t/lib/b-stash.t
index 7f523b5cc4..bc9d896927 100644
--- a/t/lib/b-stash.t
+++ b/t/lib/b-stash.t
@@ -30,6 +30,7 @@ chomp($a = `$^X $path "-MB::Stash" "-Mwarnings" -e1`);
 $a = join ',', sort split /,/, $a;
 $a =~ s/-u(PerlIO|open)(?:::\w+)?,//g if defined $Config{'useperlio'} and $Config{'useperlio'} eq 'define';
 $a =~ s/-uWin32,// if $^O eq 'MSWin32';
+$a =~ s/-uNetWare,// if $^O eq 'NetWare';
 $a =~ s/-u(Cwd|File|File::Copy|OS2),//g if $^O eq 'os2';
 $a =~ s/-uCwd,// if $^O eq 'cygwin';
   $b = '-uCarp,-uCarp::Heavy,-uDB,-uExporter,-uExporter::Heavy,-uattributes,'
diff --git a/t/lib/cwd.t b/t/lib/cwd.t
index 5a3ecae4d5..09b45d6004 100644
--- a/t/lib/cwd.t
+++ b/t/lib/cwd.t
@@ -30,7 +30,7 @@ eval { fastcwd };
 # Must find an external pwd (or equivalent) command.
 
 my $pwd_cmd =
-    ($^O eq "MSWin32") ? "cd" : (grep { -x && -f } map { "$_/pwd" }
+    ($^O eq "MSWin32" || $^O eq "NetWare") ? "cd" : (grep { -x && -f } map { "$_/pwd" }
 			       split m/$Config{path_sep}/, $ENV{PATH})[0];
 
 if ($^O eq 'VMS') { $pwd_cmd = 'SHOW DEFAULT'; }
@@ -38,7 +38,7 @@ if ($^O eq 'VMS') { $pwd_cmd = 'SHOW DEFAULT'; }
 if (defined $pwd_cmd) {
     chomp(my $start = `$pwd_cmd`);
     # Win32's cd returns native C:\ style
-    $start =~ s,\\,/,g if $^O eq 'MSWin32';
+    $start =~ s,\\,/,g if ($^O eq 'MSWin32' || $^O eq "NetWare");
     # DCL SHOW DEFAULT has leading spaces
     $start =~ s/^\s+// if $^O eq 'VMS';
     if ($?) {
diff --git a/t/lib/db-btree.t b/t/lib/db-btree.t
index 1822823563..4b4a7967ee 100755
--- a/t/lib/db-btree.t
+++ b/t/lib/db-btree.t
@@ -142,7 +142,7 @@ ok(19, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_BTREE )) ;
 
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat($Dfile);
-ok(20, ($mode & 0777) == ($^O eq 'os2' ? 0666 : 0640) || $^O eq 'amigaos' || $^O eq 'MSWin32');
+ok(20, ($mode & 0777) == ($^O eq 'os2' ? 0666 : 0640) || $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare');
 
 my ($key, $value, $i);
 while (($key,$value) = each(%h)) {
diff --git a/t/lib/db-hash.t b/t/lib/db-hash.t
index effc60b7dd..6f2ef37b61 100755
--- a/t/lib/db-hash.t
+++ b/t/lib/db-hash.t
@@ -108,7 +108,7 @@ ok(15, $X = tie(%h, 'DB_File',$Dfile, O_RDWR|O_CREAT, 0640, $DB_HASH ) );
 
 my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat($Dfile);
-ok(16, ($mode & 0777) == ($^O eq 'os2' ? 0666 : 0640) || $^O eq 'amigaos' || $^O eq 'MSWin32');
+ok(16, ($mode & 0777) == ($^O eq 'os2' ? 0666 : 0640) || $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare');
 
 my ($key, $value, $i);
 while (($key,$value) = each(%h)) {
diff --git a/t/lib/db-recno.t b/t/lib/db-recno.t
index 4ca547f1e7..6dd913cfc2 100755
--- a/t/lib/db-recno.t
+++ b/t/lib/db-recno.t
@@ -153,7 +153,7 @@ my @h ;
 ok(17, $X = tie @h, 'DB_File', $Dfile, O_RDWR|O_CREAT, 0640, $DB_RECNO ) ;
 
 ok(18, ((stat($Dfile))[2] & 0777) == ($^O eq 'os2' ? 0666 : 0640)
-	||  $^O eq 'MSWin32' || $^O eq 'amigaos') ;
+	||  $^O eq 'MSWin32' ||  $^O eq 'NetWare' || $^O eq 'amigaos') ;
 
 #my $l = @h ;
 my $l = $X->length ;
diff --git a/t/lib/filehand.t b/t/lib/filehand.t
index 0f3e177563..eaddf496db 100755
--- a/t/lib/filehand.t
+++ b/t/lib/filehand.t
@@ -72,7 +72,7 @@ if ($^O eq 'dos')
 
 ($rd,$wr) = FileHandle::pipe;
 
-if ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'MSWin32' ||
+if ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'amigaos' || $^O eq 'MSWin32' || $^O eq 'NetWare' ||
     $Config{d_fork} ne 'define') {
   $wr->autoflush;
   $wr->printf("ok %d\n",11);
diff --git a/t/lib/filter-util.t b/t/lib/filter-util.t
index 4c40463ed7..dc667c98ee 100644
--- a/t/lib/filter-util.t
+++ b/t/lib/filter-util.t
@@ -50,7 +50,7 @@ sub import { filter_add(bless []) }
 EOM
  
 my $a = `$Perl "-I." $Inc -e "use ${module} ;"  2>&1` ;
-ok(1, (($? >>8) != 0 or ($^O eq 'MSWin32' && $? != 0))) ;
+ok(1, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'NetWare') && $? != 0))) ;
 ok(2, $a =~ /^Can't locate object method "filter" via package "MyTest"/) ;
  
 # no reference parameter in filter_add
@@ -67,7 +67,7 @@ sub import { filter_add() }
 EOM
  
 $a = `$Perl "-I." $Inc -e "use ${module} ;"  2>&1` ;
-ok(3, (($? >>8) != 0 or ($^O eq 'MSWin32' && $? != 0))) ;
+ok(3, (($? >>8) != 0 or (($^O eq 'MSWin32' || $^O eq 'NetWare') && $? != 0))) ;
 #ok(4, $a =~ /^usage: filter_add\(ref\) at ${module}.pm/) ;
 ok(4, $a =~ /^Not enough arguments for Filter::Util::Call::filter_add/) ;
  
diff --git a/t/lib/ftmp-security.t b/t/lib/ftmp-security.t
index 96b2c4283c..f9be237dd3 100755
--- a/t/lib/ftmp-security.t
+++ b/t/lib/ftmp-security.t
@@ -27,7 +27,7 @@ ok(1);
 # The high security tests must currently be skipped on some platforms
 my $skipplat = ( (
 		  # No sticky bits.
-		  $^O eq 'MSWin32' || $^O eq 'os2' || $^O eq 'dos'
+		  $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'os2' || $^O eq 'dos'
 		  ) ? 1 : 0 );
 
 # Can not run high security tests in perls before 5.6.0
diff --git a/t/lib/gdbm.t b/t/lib/gdbm.t
index 951804c54d..0f5cfa0186 100755
--- a/t/lib/gdbm.t
+++ b/t/lib/gdbm.t
@@ -30,7 +30,7 @@ my $Dfile = "Op.dbmx.pag";
 if (! -e $Dfile) {
 	($Dfile) = <Op.dbmx*>;
 }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') {
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/glob-basic.t b/t/lib/glob-basic.t
index e8aef850fa..ef9dd96495 100755
--- a/t/lib/glob-basic.t
+++ b/t/lib/glob-basic.t
@@ -44,7 +44,7 @@ print "ok 2\n";
 
 # look up the user's home directory
 # should return a list with one item, and not set ERROR
-if ($^O ne 'MSWin32' && $^O ne 'VMS') {
+if ($^O ne 'MSWin32' && $^O ne 'NetWare' && $^O ne 'VMS') {
   eval {
     ($name, $home) = (getpwuid($>))[0,7];
     1;
@@ -71,14 +71,14 @@ print "ok 4\n";
 # should return an empty list
 # XXX since errfunc is NULL on win32, this test is not valid there
 @a = bsd_glob("asdfasdf", 0);
-if ($^O ne 'MSWin32' and scalar @a != 0) {
+if (($^O ne 'MSWin32' && $^O ne 'NetWare') and scalar @a != 0) {
     print "# |@a|\nnot ";
 }
 print "ok 5\n";
 
 # check bad protections
 # should return an empty list, and set ERROR
-if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'os2' or $^O eq 'VMS'
+if ($^O eq 'mpeix' or $^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'os2' or $^O eq 'VMS'
     or $^O eq 'cygwin' or Cwd::cwd() =~ m#^$Config{'afsroot'}#s or not $>)
 {
     print "ok 6 # skipped\n";
diff --git a/t/lib/glob-case.t b/t/lib/glob-case.t
index 881470cf84..3c3980c880 100755
--- a/t/lib/glob-case.t
+++ b/t/lib/glob-case.t
@@ -42,7 +42,7 @@ print "not " unless @a >= 3;
 print "ok 4\n";
 
 # Test Win32 backslash nastiness...
-if ($^O ne 'MSWin32') {
+if ($^O ne 'MSWin32' && $^O ne 'NetWare') {
     print "ok 5\nok 6\nok 7\n";
 }
 else {
diff --git a/t/lib/io_dup.t b/t/lib/io_dup.t
index 0f17264dfa..8983a56f36 100755
--- a/t/lib/io_dup.t
+++ b/t/lib/io_dup.t
@@ -39,7 +39,7 @@ $stderr->fdopen($stdout,"w");
 
 print $stdout "ok 2\n";
 print $stderr "ok 3\n";
-if ($^O eq 'MSWin32') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
     print `echo ok 4`;
     print `echo ok 5 1>&2`; # does this *really* work?
 }
@@ -54,7 +54,7 @@ $stdout->close;
 $stdout->fdopen($dupout,"w");
 $stderr->fdopen($duperr,"w");
 
-if ($^O eq 'MSWin32') { print `type Io.dup` }
+if ($^O eq 'MSWin32' || $^O eq 'NetWare') { print `type Io.dup` }
 else                  { system 'cat Io.dup' }
 unlink 'Io.dup';
 
diff --git a/t/lib/io_poll.t b/t/lib/io_poll.t
index d391566a7f..d31ea47f53 100755
--- a/t/lib/io_poll.t
+++ b/t/lib/io_poll.t
@@ -39,7 +39,7 @@ print "ok 2\n";
 
 $poll->poll(0.1);
 
-if ($^O eq 'MSWin32') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
 print "ok 3 # skipped, doesn't work on non-socket fds\n";
 print "ok 4 # skipped, doesn't work on non-socket fds\n";
 }
diff --git a/t/lib/io_sel.t b/t/lib/io_sel.t
index 5d1dce3ef9..84660db183 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' || $^O eq 'dos') {  # 4-arg select is only valid on sockets
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^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_taint.t b/t/lib/io_taint.t
index 19afa2fea4..c98d70151f 100755
--- a/t/lib/io_taint.t
+++ b/t/lib/io_taint.t
@@ -29,7 +29,7 @@ $x->close;
 $x = new IO::File "< ./__taint__$$" || die("Cannot open ./__taint__$$\n");
 chop($unsafe = <$x>);
 eval { kill 0 * $unsafe };
-print "not " if $^O ne 'MSWin32' and ($@ !~ /^Insecure/o);
+print "not " if ((($^O ne 'MSWin32') && ($^O ne 'NetWare')) and ($@ !~ /^Insecure/o));
 print "ok 1\n";
 $x->close;
 
diff --git a/t/lib/ndbm.t b/t/lib/ndbm.t
index e56fcd938a..cb975e0047 100755
--- a/t/lib/ndbm.t
+++ b/t/lib/ndbm.t
@@ -40,7 +40,7 @@ my $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 'NetWare') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/net-hostent.t b/t/lib/net-hostent.t
index abc5b9292f..c3a12194ec 100644
--- a/t/lib/net-hostent.t
+++ b/t/lib/net-hostent.t
@@ -41,7 +41,7 @@ print "ok 5\n";
 # VMS returns "LOCALHOST" under tcp/ip services V4.1 ECO 2, possibly others
 # OS/390 returns localhost.YADDA.YADDA
 
-if ($^O eq 'MSWin32' or $^O eq 'cygwin') {
+if ($^O eq 'MSWin32' or $^O eq 'NetWare' or $^O eq 'cygwin') {
   print "ok $_ # skipped on win32\n" for (6,7);
 } else {
   my $in_alias;
diff --git a/t/lib/odbm.t b/t/lib/odbm.t
index b935d049e5..a43e70bd99 100755
--- a/t/lib/odbm.t
+++ b/t/lib/odbm.t
@@ -40,7 +40,7 @@ my $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 'NetWare') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/open2.t b/t/lib/open2.t
index 85b807c98a..fe49189d83 100755
--- a/t/lib/open2.t
+++ b/t/lib/open2.t
@@ -6,7 +6,7 @@ BEGIN {
     require Config; import Config;
     if (!$Config{'d_fork'}
        # open2/3 supported on win32 (but not Borland due to CRT bugs)
-       && ($^O ne 'MSWin32' || $Config{'cc'} =~ /^bcc/i))
+       && (($^O ne 'MSWin32' && $^O ne 'NetWare') || $Config{'cc'} =~ /^bcc/i))
     {
 	print "1..0\n";
 	exit 0;
@@ -34,7 +34,7 @@ sub ok {
 }
 
 sub cmd_line {
-	if ($^O eq 'MSWin32') {
+	if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
 		return qq/"$_[0]"/;
 	}
 	else {
diff --git a/t/lib/open3.t b/t/lib/open3.t
index a0da34f256..7d2d4113df 100755
--- a/t/lib/open3.t
+++ b/t/lib/open3.t
@@ -6,7 +6,7 @@ BEGIN {
     require Config; import Config;
     if (!$Config{'d_fork'}
        # open2/3 supported on win32 (but not Borland due to CRT bugs)
-       && ($^O ne 'MSWin32' || $Config{'cc'} =~ /^bcc/i))
+       && (($^O ne 'MSWin32' && $^O ne 'NetWare') || $Config{'cc'} =~ /^bcc/i))
     {
 	print "1..0\n";
 	exit 0;
@@ -34,7 +34,7 @@ sub ok {
 }
 
 sub cmd_line {
-	if ($^O eq 'MSWin32') {
+	if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
 		my $cmd = shift;
 		$cmd =~ tr/\r\n//d;
 		$cmd =~ s/"/\\"/g;
diff --git a/t/lib/posix.t b/t/lib/posix.t
index 33ab94432f..09bd88c2a9 100755
--- a/t/lib/posix.t
+++ b/t/lib/posix.t
@@ -17,6 +17,7 @@ $| = 1;
 print "1..27\n";
 
 $Is_W32 = $^O eq 'MSWin32';
+$Is_NetWare = $^O eq 'NetWare';
 $Is_Dos = $^O eq 'dos';
 
 $testfd = open("TEST", O_RDONLY, 0) and print "ok 1\n";
diff --git a/t/lib/sdbm.t b/t/lib/sdbm.t
index 3221ca46ed..57928e0e51 100755
--- a/t/lib/sdbm.t
+++ b/t/lib/sdbm.t
@@ -40,7 +40,7 @@ my $Dfile = "Op_dbmx.pag";
 if (! -e $Dfile) {
 	($Dfile) = <Op_dbmx.*>;
 }
-if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos') {
+if ($^O eq 'amigaos' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos') {
     print "ok 2 # Skipped: different file permission semantics\n";
 }
 else {
diff --git a/t/lib/sigaction.t b/t/lib/sigaction.t
index 1815b19510..c38b122775 100644
--- a/t/lib/sigaction.t
+++ b/t/lib/sigaction.t
@@ -8,7 +8,7 @@ BEGIN {
 BEGIN{
 	# Don't do anything if POSIX is missing, or sigaction missing.
 	eval { use POSIX; };
-	if($@ || $^O eq 'MSWin32') {
+	if($@ || $^O eq 'MSWin32' || $^O eq 'NetWare') {
 		print "1..0\n";
 		exit 0;
 	}
diff --git a/t/lib/syslfs.t b/t/lib/syslfs.t
index 6a5d9b7874..8d9769fded 100644
--- a/t/lib/syslfs.t
+++ b/t/lib/syslfs.t
@@ -60,7 +60,7 @@ EOM
 print "# checking whether we have sparse files...\n";
 
 # Known have-nots.
-if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
     print "1..0 # Skip: no sparse files in $^O\n";
     bye();
 }
diff --git a/t/op/anonsub.t b/t/op/anonsub.t
index aa25de0131..0e4c40494f 100755
--- a/t/op/anonsub.t
+++ b/t/op/anonsub.t
@@ -5,6 +5,7 @@ chdir 't' if -d 't';
 $Is_VMS = $^O eq 'VMS';
 $Is_MSWin32 = $^O eq 'MSWin32';
 $Is_MacOS = $^O eq 'MacOS';
+$Is_NetWare = $^O eq 'NetWare';
 $ENV{PERL5LIB} = "../lib" unless $Is_VMS;
 
 $|=1;
@@ -32,7 +33,9 @@ for (@prgs){
 		    `.\\perl -I../lib $switch $tmpfile 2>&1` :
 		      $Is_MacOS ?  
 			`$^X -I::lib $switch $tmpfile` :
-			  `./perl $switch $tmpfile 2>&1`;
+			    $Is_NetWare ?
+				`perl -I../lib $switch $tmpfile 2>&1` :
+				    `./perl $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
     # allow expected output to be written as if $prog is on STDIN
diff --git a/t/op/closure.t b/t/op/closure.t
index 633428607e..159392c93b 100755
--- a/t/op/closure.t
+++ b/t/op/closure.t
@@ -429,7 +429,7 @@ END
 	    $test++;
 	  }
 
-	  if ($Config{d_fork} and $^O ne 'VMS' and $^O ne 'MSWin32') {
+	  if ($Config{d_fork} and $^O ne 'VMS' and $^O ne 'MSWin32' and $^O ne 'NetWare') {
 	    # Fork off a new perl to run the tests.
 	    # (This is so we can catch spurious warnings.)
 	    $| = 1; print ""; $| = 0; # flush output before forking
@@ -466,9 +466,10 @@ END
 	    my $cmd = (($^O eq 'VMS') ? "MCR $^X"
 		       : ($^O eq 'MSWin32') ? '.\perl'
 		       : ($^O eq 'MacOS') ? $^X
+		       : ($^O eq 'NetWare') ? 'perl'
 		       : './perl');
 	    $cmd .= " -w $cmdfile 2>$errfile";
-	    if ($^O eq 'VMS' or $^O eq 'MSWin32') {
+	    if ($^O eq 'VMS' or $^O eq 'MSWin32' or $^O eq 'NetWare') {
 	      # Use pipe instead of system so we don't inherit STD* from
 	      # this process, and then foul our pipe back to parent by
 	      # redirecting output in the child.
diff --git a/t/op/die_exit.t b/t/op/die_exit.t
index f758f9c237..18d8babfdc 100755
--- a/t/op/die_exit.t
+++ b/t/op/die_exit.t
@@ -50,7 +50,7 @@ foreach my $test (1 .. $max) {
     my($bang, $query, $code) = @{$tests{$test}};
     $code ||= 'die;';
     my $exit =
-	($^O eq 'MSWin32'
+	(($^O eq 'MSWin32' || $^O eq 'NetWare')
 	 ? system qq($perl -e "\$! = $bang; \$? = $query; $code" 2> nul)
 	 : system qq($perl -e '\$! = $bang; \$? = $query; $code' 2> /dev/null));
 
diff --git a/t/op/exec.t b/t/op/exec.t
index 57a114e766..2defb47db4 100755
--- a/t/op/exec.t
+++ b/t/op/exec.t
@@ -5,7 +5,7 @@ $| = 1;				# flush stdout
 $ENV{LC_ALL}   = 'C';		# Forge English error messages.
 $ENV{LANGUAGE} = 'C';		# Ditto in GNU.
 
-if ($^O eq 'MSWin32') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
     # XXX the system tests could be written to use ./perl and so work on Win32
     print "1..0 # Skip: shh, win32\n";
     exit(0);
diff --git a/t/op/fork.t b/t/op/fork.t
index fbcd0987fe..b3faa19aa7 100755
--- a/t/op/fork.t
+++ b/t/op/fork.t
@@ -7,7 +7,7 @@ BEGIN {
     @INC = '../lib';
     require Config; import Config;
     unless ($Config{'d_fork'}
-	    or ($^O eq 'MSWin32' and $Config{useithreads}
+	    or (($^O eq 'MSWin32' || $^O eq 'NetWare') and $Config{useithreads}
 		and $Config{ccflags} =~ /-DPERL_IMPLICIT_SYS/ 
 #               and !defined $Config{'useperlio'}
                ))
@@ -33,7 +33,7 @@ $tmpfile = "forktmp000";
 1 while -f ++$tmpfile;
 END { close TEST; unlink $tmpfile if $tmpfile; }
 
-$CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : 'cat');
+$CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : (($^O eq 'NetWare') ? 'perl -e "print <>"' : 'cat'));
 
 for (@prgs){
     my $switch;
@@ -51,6 +51,9 @@ for (@prgs){
     if ($^O eq 'MSWin32') {
       $results = `.\\perl -I../lib $switch $tmpfile 2>&1`;
     }
+    elsif ($^O eq 'NetWare') {
+      $results = `perl -I../lib $switch $tmpfile 2>&1`;
+    }
     else {
       $results = `./perl $switch $tmpfile 2>&1`;
     }
@@ -255,7 +258,7 @@ ok 1 child
 $| = 1;
 $\ = "\n";
 my $getenv;
-if ($^O eq 'MSWin32') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare') {
     $getenv = qq[$^X -e "print \$ENV{TST}"];
 }
 else {
diff --git a/t/op/goto.t b/t/op/goto.t
index 579e8180e4..a0b4d55e74 100755
--- a/t/op/goto.t
+++ b/t/op/goto.t
@@ -29,7 +29,7 @@ label4:
 print "#2\t:$foo: == 4\n";
 if ($foo == 4) {print "ok 2\n";} else {print "not ok 2\n";}
 
-$PERL = ($^O eq 'MSWin32') ? '.\perl' : ($^O eq 'MacOS') ? $^X : './perl';
+$PERL = ($^O eq 'MSWin32') ? '.\perl' : ($^O eq 'MacOS') ? $^X : ($^O eq 'NetWare') ? 'perl' : './perl';
 $CMD = qq[$PERL -e "goto foo;" 2>&1 ];
 $x = `$CMD`;
 
diff --git a/t/op/groups.t b/t/op/groups.t
index 082d2d1d9f..0531826dba 100755
--- a/t/op/groups.t
+++ b/t/op/groups.t
@@ -10,7 +10,7 @@ sub quit {
     exit 0;
 }
 
-quit() if $^O eq 'MSWin32' or $^O =~ /lynxos/i;
+quit() if (($^O eq 'MSWin32' || $^O eq 'NetWare') or $^O =~ /lynxos/i);
 
 # We have to find a command that prints all (effective
 # and real) group names (not ids).  The known commands are:
diff --git a/t/op/lfs.t b/t/op/lfs.t
index 44a92c4855..2652555281 100644
--- a/t/op/lfs.t
+++ b/t/op/lfs.t
@@ -59,7 +59,7 @@ $| = 1;
 print "# checking whether we have sparse files...\n";
 
 # Known have-nots.
-if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
     print "1..0 # Skip: no sparse files in $^O\n";
     bye();
 }
diff --git a/t/op/magic.t b/t/op/magic.t
index c8b2d1c7bf..935e574990 100755
--- a/t/op/magic.t
+++ b/t/op/magic.t
@@ -21,11 +21,12 @@ sub ok {
 }
 
 $Is_MSWin32 = $^O eq 'MSWin32';
+$Is_NetWare = $^O eq 'NetWare';
 $Is_VMS     = $^O eq 'VMS';
 $Is_Dos   = $^O eq 'dos';
 $Is_os2   = $^O eq 'os2';
 $Is_Cygwin   = $^O eq 'cygwin';
-$PERL = ($Is_MSWin32 ? '.\perl' : './perl');
+$PERL = ($Is_MSWin32 ? '.\perl' : ($Is_NetWare ? 'perl' : './perl'));
 
 print "1..41\n";
 
@@ -39,7 +40,7 @@ open(FOO,'ajslkdfpqjsjfk');
 ok 2, $!, $!;
 close FOO; # just mention it, squelch used-only-once
 
-if ($Is_MSWin32 || $Is_Dos) {
+if ($Is_MSWin32 || $Is_NetWare || $Is_Dos) {
     ok "3 # skipped",1;
     ok "4 # skipped",1;
 }
@@ -211,7 +212,7 @@ else {
 
 # test case-insignificance of %ENV (these tests must be enabled only
 # when perl is compiled with -DENV_IS_CASELESS)
-if ($Is_MSWin32) {
+if ($Is_MSWin32 || $Is_NetWare) {
     %ENV = ();
     $ENV{'Foo'} = 'bar';
     $ENV{'fOo'} = 'baz';
diff --git a/t/op/misc.t b/t/op/misc.t
index 679dd91d0d..b00f4b1b74 100755
--- a/t/op/misc.t
+++ b/t/op/misc.t
@@ -17,7 +17,7 @@ $tmpfile = "misctmp000";
 1 while -f ++$tmpfile;
 END { while($tmpfile && unlink $tmpfile){} }
 
-$CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : 'cat');
+$CAT = (($^O eq 'MSWin32') ? '.\perl -e "print <>"' : (($^O eq 'NetWare') ? 'perl -e "print <>"' : 'cat'));
 
 for (@prgs){
     my $switch;
@@ -35,6 +35,9 @@ for (@prgs){
     if ($^O eq 'MSWin32') {
       $results = `.\\perl -I../lib $switch $tmpfile 2>&1`;
     }
+	elsif ($^O eq 'NetWare') {
+      $results = `perl -I../lib $switch $tmpfile 2>&1`;
+    }
     else {
       $results = `./perl $switch $tmpfile 2>&1`;
     }
@@ -624,7 +627,7 @@ my $have_setlocale = $Config{d_setlocale} eq 'define';
 $have_setlocale = 0 if $@;
 # Visual C's CRT goes silly on strings of the form "en_US.ISO8859-1"
 # and mingw32 uses said silly CRT
-$have_setlocale = 0 if $^O eq 'MSWin32' && $Config{cc} =~ /^(cl|gcc)/i;
+$have_setlocale = 0 if (($^O eq 'MSWin32' || $^O eq 'NetWare') && $Config{cc} =~ /^(cl|gcc)/i);
 exit(0) unless $have_setlocale;
 my @locales;
 if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a|")) {
diff --git a/t/op/rand.t b/t/op/rand.t
index 83186aeb66..e365e597b4 100755
--- a/t/op/rand.t
+++ b/t/op/rand.t
@@ -342,6 +342,7 @@ AUTOSRAND:
     for (1..5) {
 	my $PERL = (($^O eq 'VMS') ? "MCR $^X"
 		    : ($^O eq 'MSWin32') ? '.\perl'
+		    : ($^O eq 'NetWare') ? 'perl'
 		    : './perl');
 	$pid = open PERL, qq[$PERL -e "print rand"|];
 	die "Couldn't pipe from perl: $!" unless defined $pid;
diff --git a/t/op/runlevel.t b/t/op/runlevel.t
index 3140f02103..136480129b 100755
--- a/t/op/runlevel.t
+++ b/t/op/runlevel.t
@@ -10,6 +10,7 @@ chdir 't' if -d 't';
 @INC = '../lib';
 $Is_VMS = $^O eq 'VMS';
 $Is_MSWin32 = $^O eq 'MSWin32';
+$Is_NetWare = $^O eq 'NetWare';
 $ENV{PERL5LIB} = "../lib" unless $Is_VMS;
 
 $|=1;
@@ -35,6 +36,8 @@ for (@prgs){
                   `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` :
 		      $Is_MSWin32 ?  
 			  `.\\perl -I../lib $switch $tmpfile 2>&1` :
+		      $Is_NetWare ?  
+			  `perl -I../lib $switch $tmpfile 2>&1` :
 			      `./perl $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
diff --git a/t/op/split.t b/t/op/split.t
index 4e3e546c18..8aa91e506f 100755
--- a/t/op/split.t
+++ b/t/op/split.t
@@ -51,6 +51,7 @@ print $_ eq '1:2:3:4:5:6:::' ? "ok 10\n" : "not ok 10 $_\n";
 
 # Does assignment to a list imply split to one more field than that?
 if ($^O eq 'MSWin32') { $foo = `.\\perl -D1024 -e "(\$a,\$b) = split;" 2>&1` }
+elsif ($^O eq 'NetWare') { $foo = `perl -D1024 -e "(\$a,\$b) = split;" 2>&1` }
 elsif ($^O eq 'VMS')  { $foo = `./perl "-D1024" -e "(\$a,\$b) = split;" 2>&1` }
 elsif ($^O eq 'MacOS'){ $foo = `$^X "-D1024" -e "(\$a,\$b) = split;"` }
 else                  { $foo = `./perl -D1024 -e '(\$a,\$b) = split;' 2>&1` }
diff --git a/t/op/stat.t b/t/op/stat.t
index f7a2a4ec8d..f3cf2efbd6 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -12,17 +12,18 @@ use Config;
 print "1..58\n";
 
 $Is_MSWin32 = $^O eq 'MSWin32';
+$Is_NetWare = $^O eq 'NetWare';
 $Is_Dos = $^O eq 'dos';
-$Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32;
+$Is_Dosish = $Is_Dos || $^O eq 'os2' || $Is_MSWin32 || $Is_NetWare;
 $Is_Cygwin = $^O eq 'cygwin';
-chop($cwd = ($Is_MSWin32 ? `cd` : `pwd`));
+chop($cwd = (($Is_MSWin32 || $Is_NetWare) ? `cd` : `pwd`));
 
 $DEV = `ls -l /dev` unless $Is_Dosish or $Is_Cygwin;
 
 unlink "Op.stat.tmp";
 if (open(FOO, ">Op.stat.tmp")) {
   # hack to make Apollo update link count:
-  $junk = `ls Op.stat.tmp` unless ($Is_MSWin32 || $Is_Dos);
+  $junk = `ls Op.stat.tmp` unless ($Is_MSWin32 || $Is_NetWare || $Is_Dos);
 
   ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size,$atime,$mtime,$ctime,
    $blksize,$blocks) = stat(FOO);
@@ -32,7 +33,7 @@ if (open(FOO, ">Op.stat.tmp")) {
   else {
     print "# res=$res, nlink=$nlink.\nnot ok 1\n";
   }
-  if ($Is_MSWin32 or $Is_Cygwin or $Is_Dos || ($mtime && $mtime == $ctime)) {
+  if ($Is_MSWin32 or $Is_NetWare or $Is_Cygwin or $Is_Dos || ($mtime && $mtime == $ctime)) {
     print "ok 2\n";
   }
   else {
@@ -85,7 +86,7 @@ else {
 print "#4	:$mtime: should != :$ctime:\n";
 
 unlink "Op.stat.tmp" or print "# unlink failed: $!\n";
-if ($Is_MSWin32) {  open F, '>Op.stat.tmp' and close F }
+if ($Is_MSWin32 || $Is_NetWare) {  open F, '>Op.stat.tmp' and close F }
 else             { `touch Op.stat.tmp` }
 
 if (-z 'Op.stat.tmp') {print "ok 5\n";} else {print "not ok 5\n";}
@@ -141,7 +142,7 @@ if (-e 'Op.stat.tmp') {print "ok 27\n";} else {print "not ok 27\n";}
 unlink 'Op.stat.tmp2';
 if (! -e 'Op.stat.tmp2') {print "ok 28\n";} else {print "not ok 28\n";}
 
-if ($Is_MSWin32 || $Is_Dos)
+if ($Is_MSWin32 || $Is_NetWare || $Is_Dos)
     {print "ok 29\n";}
 elsif ($DEV !~ /\nc.* (\S+)\n/)
     {print "ok 29\n";}
@@ -151,7 +152,7 @@ else
     {print "not ok 29\n";}
 if (! -c '.') {print "ok 30\n";} else {print "not ok 30\n";}
 
-if ($Is_MSWin32 || $Is_Dos)
+if ($Is_MSWin32 || $Is_NetWare || $Is_Dos)
     {print "ok 31\n";}
 elsif ($DEV !~ /\ns.* (\S+)\n/)
     {print "ok 31\n";}
@@ -161,7 +162,7 @@ else
     {print "not ok 31\n";}
 if (! -S '.') {print "ok 32\n";} else {print "not ok 32\n";}
 
-if ($Is_MSWin32 || $Is_Dos)
+if ($Is_MSWin32 || $Is_NetWare || $Is_Dos)
     {print "ok 33\n";}
 elsif ($DEV !~ /\nb.* (\S+)\n/)
     {print "ok 33\n";}
@@ -205,7 +206,7 @@ tty_test:
 # may not be available (at, cron  rsh etc), the PERL_SKIP_TTY_TEST env var
 # can be set to skip the tests that need a tty.
 unless($ENV{PERL_SKIP_TTY_TEST}) {
-    if ($Is_MSWin32) {
+    if ($Is_MSWin32 || $Is_NetWare) {
 	print "ok 36\n";
 	print "ok 37\n";
     }
@@ -236,7 +237,7 @@ else {
     print "ok 39\n";
 }
 open(null,"/dev/null");
-if (! -t null || -e '/xenix' || $^O eq 'machten' || $Is_MSWin32)
+if (! -t null || -e '/xenix' || $^O eq 'machten' || $Is_MSWin32 || $Is_NetWare)
 	{print "ok 40\n";} else {print "not ok 40\n";}
 close(null);
 
diff --git a/t/op/sysio.t b/t/op/sysio.t
index e43f850154..251c7f8151 100755
--- a/t/op/sysio.t
+++ b/t/op/sysio.t
@@ -6,7 +6,7 @@ chdir('op') || chdir('t/op') || die "sysio.t: cannot look for myself: $!";
 
 open(I, 'sysio.t') || die "sysio.t: cannot find myself: $!";
 
-$reopen = ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'dos' ||
+$reopen = ($^O eq 'VMS' || $^O eq 'os2' || $^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'dos' ||
 	   $^O eq 'mpeix');
 
 $x = 'abc';
diff --git a/t/op/taint.t b/t/op/taint.t
index 0d1e747daf..c2bb2f8705 100755
--- a/t/op/taint.t
+++ b/t/op/taint.t
@@ -40,9 +40,11 @@ BEGIN {
 
 my $Is_VMS = $^O eq 'VMS';
 my $Is_MSWin32 = $^O eq 'MSWin32';
+my $Is_NetWare = $^O eq 'NetWare';
 my $Is_Dos = $^O eq 'dos';
 my $Invoke_Perl = $Is_VMS ? 'MCR Sys$Disk:[]Perl.' :
-                  $Is_MSWin32 ? '.\perl' : './perl';
+                  ($Is_MSWin32 ? '.\perl' :
+                  ($Is_NetWare ? 'perl' : './perl'));
 my @MoreEnv = qw/IFS CDPATH ENV BASH_ENV/;
 
 if ($Is_VMS) {
@@ -99,7 +101,7 @@ sub test ($$;$) {
 }
 
 # We need an external program to call.
-my $ECHO = ($Is_MSWin32 ? ".\\echo$$" : "./echo$$");
+my $ECHO = ($Is_MSWin32 ? ".\\echo$$" : ($Is_NetWare ? "echo$$" : "./echo$$"));
 END { unlink $ECHO }
 open PROG, "> $ECHO" or die "Can't create $ECHO: $!";
 print PROG 'print "@ARGV\n"', "\n";
@@ -120,7 +122,7 @@ print "1..174\n";
 
     test 1, eval { `$echo 1` } eq "1\n";
 
-    if ($Is_MSWin32 || $Is_VMS || $Is_Dos) {
+    if ($Is_MSWin32 || $Is_NetWare || $Is_VMS || $Is_Dos) {
 	print "# Environment tainting tests skipped\n";
 	for (2..5) { print "ok $_\n" }
     }
@@ -144,7 +146,7 @@ print "1..174\n";
     }
 
     my $tmp;
-    if ($^O eq 'os2' || $^O eq 'amigaos' || $Is_MSWin32 || $Is_Dos) {
+    if ($^O eq 'os2' || $^O eq 'amigaos' || $Is_MSWin32 || $Is_NetWare || $Is_Dos) {
 	print "# all directories are writeable\n";
     }
     else {
diff --git a/t/op/write.t b/t/op/write.t
index 8e4cca8fdc..28309748d1 100755
--- a/t/op/write.t
+++ b/t/op/write.t
@@ -7,8 +7,9 @@ BEGIN {
 
 print "1..44\n";
 
-my $CAT = ($^O eq 'MSWin32') ? 'type'
-	: ($^O eq 'MacOS') ? 'catenate' : 'cat';
+my $CAT = ($^O eq 'MSWin32' || $^O eq 'NetWare') ? 'type'
+	: ($^O eq 'MacOS') ? 'catenate'
+        : 'cat';
 
 format OUT =
 the quick brown @<<
diff --git a/t/pragma/locale.t b/t/pragma/locale.t
index 0926a6ec39..e58616cbef 100755
--- a/t/pragma/locale.t
+++ b/t/pragma/locale.t
@@ -43,7 +43,7 @@ eval {
 
 # Visual C's CRT goes silly on strings of the form "en_US.ISO8859-1"
 # and mingw32 uses said silly CRT
-$have_setlocale = 0 if $^O eq 'MSWin32' && $Config{cc} =~ /^(cl|gcc)/i;
+$have_setlocale = 0 if (($^O eq 'MSWin32' || $^O eq 'NetWare') && $Config{cc} =~ /^(cl|gcc)/i);
 
 my $last = $have_setlocale ? &last : &last_without_setlocale;
 
diff --git a/t/pragma/strict.t b/t/pragma/strict.t
index bbfb8ab1f1..8b9083f4fc 100755
--- a/t/pragma/strict.t
+++ b/t/pragma/strict.t
@@ -10,6 +10,7 @@ $| = 1;
 
 my $Is_VMS = $^O eq 'VMS';
 my $Is_MSWin32 = $^O eq 'MSWin32';
+my $Is_NetWare = $^O eq 'NetWare';
 my $tmpfile = "tmp0000";
 my $i = 0 ;
 1 while -f ++$tmpfile;
@@ -71,6 +72,8 @@ for (@prgs){
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
                   $^O eq 'MacOS' ?
                   `$^X -I::lib $switch $tmpfile` :
+                  $^O eq 'NetWare' ?
+                  `perl -I../lib $switch $tmpfile 2>&1` :
                   `./perl $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
diff --git a/t/pragma/subs.t b/t/pragma/subs.t
index 7e48e201a8..2f684b41ed 100755
--- a/t/pragma/subs.t
+++ b/t/pragma/subs.t
@@ -13,6 +13,7 @@ print "1..", scalar @prgs, "\n";
 
 my $Is_VMS = $^O eq 'VMS';
 my $Is_MSWin32 = $^O eq 'MSWin32';
+my $Is_NetWare = $^O eq 'NetWare';
 my $tmpfile = "tmp0000";
 my $i = 0 ;
 1 while -f ++$tmpfile;
@@ -49,6 +50,8 @@ for (@prgs){
                   `./perl $switch $tmpfile 2>&1` :
 		  $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
+		  $Is_NetWare ?
+                  `perl -I../lib $switch $tmpfile 2>&1` :
                   `./perl $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;
diff --git a/t/pragma/warn/mg b/t/pragma/warn/mg
index a8f9dbc338..f2243357b3 100644
--- a/t/pragma/warn/mg
+++ b/t/pragma/warn/mg
@@ -25,7 +25,7 @@ EXPECT
 ########
 # mg.c
 use warnings 'signal' ;
-if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
     print "SKIPPED\n# $^O, can't kill() to raise()\n"; exit;
 }
 $|=1;
@@ -35,7 +35,7 @@ SIGINT handler "fred" not defined.
 ########
 # mg.c
 no warnings 'signal' ;
-if ($^O eq 'MSWin32' || $^O eq 'VMS') {
+if ($^O eq 'MSWin32' || $^O eq 'NetWare' || $^O eq 'VMS') {
     print "SKIPPED\n# win32, can't kill() to raise()\n"; exit;
 }
 $|=1;
diff --git a/t/pragma/warnings.t b/t/pragma/warnings.t
index 591f0399ab..09b41fbd64 100644
--- a/t/pragma/warnings.t
+++ b/t/pragma/warnings.t
@@ -11,6 +11,7 @@ $| = 1;
 
 my $Is_VMS     = $^O eq 'VMS';
 my $Is_MSWin32 = $^O eq 'MSWin32';
+my $Is_NetWare = $^O eq 'NetWare';
 my $tmpfile = "tmp0000";
 my $i = 0 ;
 1 while -f ++$tmpfile;
@@ -86,6 +87,8 @@ for (@prgs){
                   `./perl "-I../lib" $switch $tmpfile 2>&1` :
 		  $Is_MSWin32 ?
                   `.\\perl -I../lib $switch $tmpfile 2>&1` :
+		  $Is_NetWare ?
+                  `perl -I../lib $switch $tmpfile 2>&1` :
                   `./perl -I../lib $switch $tmpfile 2>&1`;
     my $status = $?;
     $results =~ s/\n+$//;