Make File::Glob more VMS-friendly (Charles Lane)

[p5sagit/p5-mst-13.2.git] / t / lib / h2ph.t

diff --git a/t/lib/h2ph.t b/t/lib/h2ph.t
index 614c74d..acb150d 100755 (executable)
--- a/t/lib/h2ph.t
+++ b/t/lib/h2ph.t
@@ -5,7 +5,7 @@
 
 BEGIN {
     chdir 't' if -d 't';
-    @INC = '../lib';
+    unshift @INC, '../lib';
 }
 
 print "1..2\n";
@@ -22,12 +22,7 @@ unless(-e '../utils/h2ph') {
     # i'll probably get in trouble for this :)
 } else {
     # does it run?
-    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");
-    }
+    $ok = system("./perl -I../lib ../utils/h2ph -d. -Q lib/h2ph.h");
     print(($ok == 0 ? "" : "not "), "ok 1\n");
     
     # does it work? well, does it do what we expect? :-)
@@ -36,4 +31,5 @@ unless(-e '../utils/h2ph') {
     
     # cleanup - should this be in an END block?
     unlink("lib/h2ph.ph");
+    unlink("_h2ph_pre.ph");
 }