Re: overriding builtins quirk

[p5sagit/p5-mst-13.2.git] / t / op / fork.t

diff --git a/t/op/fork.t b/t/op/fork.t
index fbcd098..b3faa19 100755 (executable)
--- 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 {