From: Perl 5 Porters <perl5-porters@africa.nicoh.com>
Date: Mon, 24 Jun 1996 03:07:55 +0000 (+0000)
Subject: perl 5.003: t/op/stat.t
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ae0602726dec173c8bf13e15e3d3210dcaeaa726;p=p5sagit%2Fp5-mst-13.2.git

perl 5.003: t/op/stat.t

MachTen considers /dev/null to be a terminal, so don't
count this as a Perl test failure
---

diff --git a/t/op/stat.t b/t/op/stat.t
index bace330..0ec3168 100755
--- a/t/op/stat.t
+++ b/t/op/stat.t
@@ -1,7 +1,8 @@
 #!./perl
 
 # $RCSfile: stat.t,v $$Revision: 4.1 $$Date: 92/08/07 18:28:28 $
-
+# 950521 DFD    This version hacked to make test 39 succeed on MachTen
+#               though the O.S. wrongly thinks /dev/null is a terminal
 print "1..56\n";
 
 chop($cwd = `pwd`);
@@ -140,7 +141,8 @@ if (-c tty) {print "ok 37\n";} else {print "not ok 37\n";}
 close(tty);
 if (! -t tty) {print "ok 38\n";} else {print "not ok 38\n";}
 open(null,"/dev/null");
-if (! -t null || -e '/xenix') {print "ok 39\n";} else {print "not ok 39\n";}
+if (! -t null || -e '/xenix' || -e '/MachTen')
+	{print "ok 39\n";} else {print "not ok 39\n";}
 close(null);
 if (-t) {print "ok 40\n";} else {print "not ok 40\n";}