Lines Matching refs:ON_EBCDIC
19 my $ON_EBCDIC;
56 'ja_JP.euc' => $ON_EBCDIC ? '' : 'euc-jp',
57 'x-euc-jp' => $ON_EBCDIC ? '' : 'euc-jp',
58 'zh_CN.euc' => $ON_EBCDIC ? '' : 'euc-cn',
59 'x-euc-cn' => $ON_EBCDIC ? '' : 'euc-cn',
60 'ko_KR.euc' => $ON_EBCDIC ? '' : 'euc-kr',
61 'x-euc-kr' => $ON_EBCDIC ? '' : 'euc-kr',
62 'ujis' => $ON_EBCDIC ? '' : 'euc-jp',
63 'Shift_JIS' => $ON_EBCDIC ? '' : 'shiftjis',
64 'x-sjis' => $ON_EBCDIC ? '' : 'shiftjis',
65 'jis' => $ON_EBCDIC ? '' : '7bit-jis',
66 'big-5' => $ON_EBCDIC ? '' : 'big5-eten',
67 'zh_TW.Big5' => $ON_EBCDIC ? '' : 'big5-eten',
68 'tca-big5' => $ON_EBCDIC ? '' : 'big5-eten',
69 'big5-hk' => $ON_EBCDIC ? '' : 'big5-hkscs',
70 'hkscs-big5' => $ON_EBCDIC ? '' : 'big5-hkscs',
71 'GB_2312-80' => $ON_EBCDIC ? '' : 'euc-cn',
72 'KS_C_5601-1987' => $ON_EBCDIC ? '' : 'cp949',
74 'gb12345-raw' => $ON_EBCDIC ? '' : 'gb12345-raw',
75 'gb2312-raw' => $ON_EBCDIC ? '' : 'gb2312-raw',
76 'jis0201-raw' => $ON_EBCDIC ? '' : 'jis0201-raw',
77 'jis0208-raw' => $ON_EBCDIC ? '' : 'jis0208-raw',
78 'jis0212-raw' => $ON_EBCDIC ? '' : 'jis0212-raw',
79 'ksc5601-raw' => $ON_EBCDIC ? '' : 'ksc5601-raw',
104 $ON_EBCDIC = ord("A") == 193;
105 @ARGV and $ON_EBCDIC = $ARGV[0] eq 'EBCDIC';
106 $Encode::ON_EBCDIC = $ON_EBCDIC;
110 if ($ON_EBCDIC){
122 print "# alias test; \$ON_EBCDIC == $ON_EBCDIC\n";