Change 11799 by ams@ams-lustre on 2001/08/31 12:15:44
Integrate 11778 into mainline.
Affected files ...
... //depot/perl/t/base/term.t#14 edit
Differences ...
==== //depot/perl/t/base/term.t#14 (xtext) ====
Index: perl/t/base/term.t
--- perl/t/base/term.t.~1~ Fri Aug 31 06:30:05 2001
+++ perl/t/base/term.t Fri Aug 31 06:30:05 2001
@@ -40,7 +40,12 @@
# 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.
