diff options
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 b2e5b2ca98..579e8180e4 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' : './perl'; +$PERL = ($^O eq 'MSWin32') ? '.\perl' : ($^O eq 'MacOS') ? $^X : './perl'; $CMD = qq[$PERL -e "goto foo;" 2>&1 ]; $x = `$CMD`; |