Lines Matching refs:ord
32 if (ord('A') == 193) { $chr = chr(0x8c); } # EBCDIC
35 if (ord('A') == 193) { $chr = chr(0x41); } # EBCDIC
38 if (ord('A') == 193) { $chr = chr(0x80); } # EBCDIC
41 if (ord('A') == 193) { $chr = chr(0x44); } # EBCDIC
72 if (ord('A') == 193) { $chr = chr(141).chr(83); } # EBCDIC
100 { use bytes; if (ord('A')==193){$y += 2;}else{$y += 3;}} # EBCDIC ASCII
111 if (ord('A') == 193) { $chr = v141.83.130; } # EBCDIC
146 if (ord('A') == 193) { $chr = v141.83.130; } # EBCDIC
164 if (ord('A') == 193) {
191 ord($b) == ord($_) &&
193 print '# ord($_) == ', ord($_), "\n";
194 print '# ord($b) == ', ord($b), "\n";
310 is( ord($a), 0x100, '23428 syswrite should not downgrade scalar' );
325 if (ord('A') == 193) # EBCDIC
334 if (ord('A') == 193) { ($chrE4, $chrF6) = ("43", "EC"); } # EBCDIC