From: imiyazaki Date: Tue, 7 Oct 2003 00:52:27 +0000 (+0000) Subject: use &get_chars_matching() X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=54168820f4f8feb959f57bed9569cbb13cd91841;p=chise%2Fomega.git use &get_chars_matching() --- diff --git a/chise2otf/add_adobecid.pl b/chise2otf/add_adobecid.pl index c183a36..cdcbb64 100644 --- a/chise2otf/add_adobecid.pl +++ b/chise2otf/add_adobecid.pl @@ -110,12 +110,10 @@ sub replace_char{ my($ucs,$encoding)=@_; my($output_char); - if(&get_reverse_db($encoding)){ - if($output_char=$reverse_chardb{$encoding}->{$ucs}){ - $output_char=decode('utf8', $output_char) if($perl58); - $output_char=~s/^\?//; - return $output_char; - } + if(($output_char)=&get_chars_matching($encoding,$ucs)){ + $output_char=decode('utf8', $output_char) if($perl58); + $output_char=~s/^\?//; + return $output_char; }else{ return undef; }