diff options
| author | Chris Nandor <pudge@pobox.com> | 2001-06-10 19:35:38 -0400 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-11 12:28:49 +0000 |
| commit | 95e8664e86da93255f26600f44bbbd70bf5b5b0e (patch) | |
| tree | 3a8919ee302246155cc722829af60949ccdfcd40 /t/base | |
| parent | 6c254d95443e15da5c7456d8ce7c28f915ae00bb (diff) | |
| download | perl-95e8664e86da93255f26600f44bbbd70bf5b5b0e.tar.gz | |
[MacPerl-Porters] [PATCH] Mac OS Compatability for bleadperl
Message-Id: <p05100306b749ec0eaade@[10.0.1.177]>
p4raw-id: //depot/perl@10512
Diffstat (limited to 't/base')
| -rwxr-xr-x | t/base/term.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/base/term.t b/t/base/term.t index 061cd33b1e..e866337879 100755 --- a/t/base/term.t +++ b/t/base/term.t @@ -11,8 +11,9 @@ print "1..7\n"; # check "" interpretation $x = "\n"; -# 10 is ASCII/Iso Latin, 21 is EBCDIC. +# 10 is ASCII/Iso Latin, 13 in Mac OS, 21 is EBCDIC. if ($x eq chr(10)) { print "ok 1\n";} +elsif ($x eq chr(13)) { print "ok 1 # Mac OS\n"; } elsif ($x eq chr(21)) { print "ok 1 # EBCDIC\n"; } else {print "not ok 1\n";} @@ -39,7 +40,7 @@ if (($x | 1) == 101) {print "ok 5\n";} else {print "not ok 5\n";} # check <> pseudoliteral -open(try, "/dev/null") || open(try,"nla0:") || (die "Can't open /dev/null."); +open(try, "/dev/null") || open(try,"Dev:Null") || open(try,"nla0:") || (die "Can't open /dev/null."); if (<try> eq '') { print "ok 6\n"; } |