From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 17 Mar 1999 14:52:17 +0000 (+0000)
Subject: Rhapsody change assumed too much.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=658e8587363152015dd91659cbf7cb9a9ef3dbd9;p=p5sagit%2Fp5-mst-13.2.git

Rhapsody change assumed too much.

p4raw-id: //depot/cfgperl@3120
---

diff --git a/t/op/stat.t b/t/op/stat.t
index 6a5776d..6f2d00b 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -195,6 +195,9 @@ unless($ENV{PERL_SKIP_TTY_TEST}) {
 	    if (-t TTY) {print "ok 36\n";} else {print "not ok 36\n";}
 	    if (-c TTY) {print "ok 37\n";} else {print "not ok 37\n";}
 	    close(TTY);
+	} else { # if some platform completely undefines $TTY
+	    print "ok 36 # skipped\n";
+	    print "ok 37 # skipped\n";
 	}
     }
     if (! -t TTY) {print "ok 38\n";} else {print "not ok 38\n";}