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/op/anonsub.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/op/anonsub.t')
| -rwxr-xr-x | t/op/anonsub.t | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/t/op/anonsub.t b/t/op/anonsub.t index 17889d9d2f..aa25de0131 100755 --- a/t/op/anonsub.t +++ b/t/op/anonsub.t @@ -4,6 +4,7 @@ chdir 't' if -d 't'; @INC = '../lib'; $Is_VMS = $^O eq 'VMS'; $Is_MSWin32 = $^O eq 'MSWin32'; +$Is_MacOS = $^O eq 'MacOS'; $ENV{PERL5LIB} = "../lib" unless $Is_VMS; $|=1; @@ -26,10 +27,12 @@ for (@prgs){ print TEST "$prog\n"; close TEST; my $results = $Is_VMS ? - `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` : - $Is_MSWin32 ? - `.\\perl -I../lib $switch $tmpfile 2>&1` : - `./perl $switch $tmpfile 2>&1`; + `MCR $^X "-I[-.lib]" $switch $tmpfile 2>&1` : + $Is_MSWin32 ? + `.\\perl -I../lib $switch $tmpfile 2>&1` : + $Is_MacOS ? + `$^X -I::lib $switch $tmpfile` : + `./perl $switch $tmpfile 2>&1`; my $status = $?; $results =~ s/\n+$//; # allow expected output to be written as if $prog is on STDIN |