# 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? :-)
# cleanup - should this be in an END block?
unlink("lib/h2ph.ph");
+ unlink("_h2ph_pre.ph");
}