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.
