From: imiyazaki <imiyazaki>
Date: Tue, 7 Oct 2003 00:52:27 +0000 (+0000)
Subject: use &get_chars_matching()
X-Git-Url: http://git.chise.org/gitweb/?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;
     }