diff options
| author | Abhijit Menon-Sen <ams@wiw.org> | 2001-08-31 12:15:44 +0000 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-08-31 12:15:44 +0000 |
| commit | bc769488d48dfc3f9427d7cf0b8a8f5098cc9d84 (patch) | |
| tree | 990f40db11fd16a62de6c309ceda4b1fd4086cb3 /t/base | |
| parent | d96b7b6731f25ccf7750e26f6e99d96eb41b5424 (diff) | |
| download | perl-bc769488d48dfc3f9427d7cf0b8a8f5098cc9d84.tar.gz | |
Integrate 11778 into mainline.
p4raw-id: //depot/perl@11799
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/term.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/base/term.t b/t/base/term.t index 1d688b8f5b..000bff1b15 100755 --- a/t/base/term.t +++ b/t/base/term.t @@ -40,7 +40,12 @@ if (($x | 1) == 101) {print "ok 5\n";} else {print "not ok 5\n";} # 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"; } |