remove utf8::decode().
[chise/omega.git] / chise2otf / chise2otf
index bf9418f..65fef19 100755 (executable)
@@ -229,7 +229,7 @@ sub de_tex_er{
            $value=hex($value);
        }
        ($output_char)=&get_chars_matching($er_alias{$atr},$value);
-       utf8::decode($output_char);
+#      utf8::decode($output_char);
     }
     if($output_char){
        return $before_er.$output_char;
@@ -338,7 +338,10 @@ sub get_output_char{
     
     $char=pack('U',$char_id);
 
-    if($out_char=&get_char_attribute($char,'=jis-x0208')){
+    if($out_char=&get_char_attribute($char,'=jis-x0208')
+       or $out_char=&get_char_attribute($char,'=jis-x0208-1983')
+       or $out_char=&get_char_attribute($char,'=jis-x0208-1990')
+      ){
        return pack("S",$out_char|0x8080);
     }else{
        foreach $out_cs (@order){