From: Laszlo Molnar <laszlo.molnar@eth.ericsson.se>
Date: Fri, 3 Jul 1998 23:45:25 +0000 (+0200)
Subject: adjust h2ph.t for dos-specific problem
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=1289a8b80f063d20e88094098a0275f4681d9f97;hp=13bc20ff1c1c1ed66d854591abb2409e14aff8a1;p=p5sagit%2Fp5-mst-13.2.git

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
---

diff --git a/t/lib/h2ph.t b/t/lib/h2ph.t
index 17d5509..614c74d 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? :-)