diff options
| author | Chris Nandor <pudge@pobox.com> | 2001-06-10 19:35:38 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:28:49 +0000 |
| commit | 95e8664e86da93255f26600f44bbbd70bf5b5b0e (patch) | |
| tree | 3a8919ee302246155cc722829af60949ccdfcd40 /t/comp/script.t | |
| parent | 6c254d95443e15da5c7456d8ce7c28f915ae00bb (diff) | |
| download | perl-95e8664e86da93255f26600f44bbbd70bf5b5b0e.tar.gz | |
[MacPerl-Porters] [PATCH] Mac OS Compatability for bleadperl
Message-Id: <p05100306b749ec0eaade@[10.0.1.177]>
p4raw-id: //depot/perl@10512
Diffstat (limited to 't/comp/script.t')
| -rwxr-xr-x | t/comp/script.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/comp/script.t b/t/comp/script.t index a9bc47d3f2..9ae83e4304 100755 --- a/t/comp/script.t +++ b/t/comp/script.t @@ -4,7 +4,8 @@ print "1..3\n"; -$PERL = ($^O eq 'MSWin32') ? '.\perl' : './perl'; +$PERL = ($^O eq 'MSWin32') ? '.\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";} |