Message-Id: <
200106120802.LAA08992@taas.iki.fi>
p4raw-id: //depot/perl@10527
# check "" interpretation
$x = "\n";
-# 10 is ASCII/Iso Latin, 13 in Mac OS, 21 is EBCDIC.
+# 10 is ASCII/Iso Latin, 13 is 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"; }