From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 7 Apr 1999 23:58:58 +0000 (-0400)
Subject: [perl-5.005.02] detect lack of /dev/tty
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=994e9bc0b681e44c7053351dd3b29d403ce44b95;p=p5sagit%2Fp5-mst-13.2.git

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