PERFORCE change 11778 for review

Change 11778 by pudge@pudge-mobile on 2001/08/29 02:14:57

	Fix open of /dev/null for Mac OS

Affected files ...

... //depot/maint-5.6/macperl/t/base/term.t#3 edit

Differences ...

==== //depot/maint-5.6/macperl/t/base/term.t#3 (xtext) ====
Index: perl/t/base/term.t
--- perl/t/base/term.t.~1~	Tue Aug 28 20:30:06 2001
+++ perl/t/base/term.t	Tue Aug 28 20:30:06 2001
@@ -40,7 +40,11 @@
 
 # check <> pseudoliteral
 
-open(try, "/dev/null") || open(try,"Dev:Null") || open(try,"nla0:") || (die "Can't open /dev/null.");
+if ($^O eq 'MacOS') {
+	open(try,"Dev:Null") || (die "Can't open /dev/null.");
+} else {
+	open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null.");
+}
 if (<try> eq '') {
     print "ok 6\n";
 }
End of Patch.