Eliminate tryAMAGICunW() by refactoring tryAMAGICun{DEREF,TARGET}

[perl5.git] / t / base / term.t

diff --git a/t/base/term.t b/t/base/term.t
index 83a32aa..7a16ffd 100644 (file)
--- a/t/base/term.t
+++ b/t/base/term.t
@@ -38,11 +38,7 @@ if (($x | 1) == 101) {print "ok 5\n";} else {print "not ok 5\n";}
 
 # check <> pseudoliteral
 
-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.");
-}
+open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null.");
 
 if (<try> eq '') {
     print "ok 6\n";