diff options
Diffstat (limited to 't/comp')
| -rwxr-xr-x | t/comp/multiline.t | 2 | ||||
| -rwxr-xr-x | t/comp/script.t | 3 |
2 files changed, 3 insertions, 2 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";} |