diff options
| author | Laszlo Molnar <laszlo.molnar@eth.ericsson.se> | 1998-07-04 01:45:25 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 05:32:50 +0000 |
| commit | 1289a8b80f063d20e88094098a0275f4681d9f97 (patch) | |
| tree | ea624b7606f2c1615c4401165d2cfca148410be4 /t | |
| parent | 13bc20ff1c1c1ed66d854591abb2409e14aff8a1 (diff) | |
| download | perl-1289a8b80f063d20e88094098a0275f4681d9f97.tar.gz | |
adjust h2ph.t for dos-specific problem
Message-ID: <19980703234525.C208@cdata.tvnet.hu>
Subject: Re: [PATCH _68] t/lib/h2ph.t problem
p4raw-id: //depot/perl@1302
Diffstat (limited to 't')
| -rwxr-xr-x | t/lib/h2ph.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/lib/h2ph.t b/t/lib/h2ph.t index 17d5509085..614c74d964 100755 --- a/t/lib/h2ph.t +++ b/t/lib/h2ph.t @@ -22,7 +22,12 @@ unless(-e '../utils/h2ph') { # i'll probably get in trouble for this :) } else { # does it run? - $ok = system("./perl -I../lib ../utils/h2ph -d. lib/h2ph.h"); + if ($^O ne 'dos') { + $ok = system("./perl -I../lib ../utils/h2ph -d. lib/h2ph.h"); + } else { + # h2ph prints some info which confuses t/TEST on dos/djgpp + $ok = system("./perl -I../lib ../utils/h2ph -d. lib/h2ph.h >nul"); + } print(($ok == 0 ? "" : "not "), "ok 1\n"); # does it work? well, does it do what we expect? :-) |