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/multiline.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/multiline.t')
| -rwxr-xr-x | t/comp/multiline.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/comp/multiline.t b/t/comp/multiline.t index ed418b84fc..309ac71e9b 100755 --- a/t/comp/multiline.t +++ b/t/comp/multiline.t @@ -36,7 +36,9 @@ 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` : `cat Comp.try`; +$_ = ($^O eq 'MSWin32') ? `type Comp.try` + : ($^O eq 'MacOS') ? `catenate Comp.try` + : `cat Comp.try`; if (/.*\n.*\n.*\n$/) {print "ok 4\n";} else {print "not ok 4\n";} |