diff options
Diffstat (limited to 't/op/fork.t')
| -rwxr-xr-x | t/op/fork.t | 9 |
1 files changed, 6 insertions, 3 deletions
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 { |