[perl-5.005.02] detect lack of /dev/tty

	Message-Id: <199904080358.XAA01192@mescaline.gnu.org>

p4raw-id: //depot/perl@3321

diff --git a/Makefile.SH b/Makefile.SH
index 0761c7a..206514e 100644 (file)
--- a/Makefile.SH
+++ b/Makefile.SH
@@ -595,11 +595,21 @@ makedepend: makedepend.SH config.sh
 test-prep: miniperl perl preplibrary utilities $(dynamic_ext) $(nonxs_ext)
        cd t && (rm -f perl$(EXE_EXT); $(LNS) ../perl$(EXE_EXT) perl$(EXE_EXT))
 
+# Second branch is for testing without a tty or controling terminal.
+# See t/op/stat.t
 test check: test-prep
-       cd t && $(LDLIBPTH) ./perl TEST </dev/tty
+       if (true </dev/tty) >/dev/null 2>&1; then \
+         cd t && $(LDLIBPTH) ./perl TEST </dev/tty; \
+       else \
+         cd t && PERL_SKIP_TTY_TEST=1 $(LDLIBPTH) ./perl TEST; \
+       fi
 
 utest ucheck: test-prep
-       cd t && $(LDLIBPTH) ./perl UTEST </dev/tty
+       if (true </dev/tty) >/dev/null 2>&1; then \
+         cd t && $(LDLIBPTH) ./perl UTEST </dev/tty; \
+       else \
+         cd t && PERL_SKIP_TTY_TEST=1 $(LDLIBPTH) ./perl UTEST; \
+       fi
 
 # For testing without a tty or controling terminal. See t/op/stat.t
 test-notty: test-prep