diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-16 19:46:38 +0000 |
| commit | 2986a63f7e513cf37f46db9f211b77071260031f (patch) | |
| tree | 9a6e62602396938ea5a612420f53ebf267e8d941 /t/op/goto.t | |
| parent | 87b11a197a59fac210fc9265bde0ef1ffe36de89 (diff) | |
| download | perl-2986a63f7e513cf37f46db9f211b77071260031f.tar.gz | |
NetWare port from Guruprasad S <SGURUPRASAD@novell.com>.
p4raw-id: //depot/perl@10643
Diffstat (limited to 't/op/goto.t')
| -rwxr-xr-x | t/op/goto.t | 2 |
1 files changed, 1 insertions, 1 deletions
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`; |