From 54168820f4f8feb959f57bed9569cbb13cd91841 Mon Sep 17 00:00:00 2001
From: imiyazaki <imiyazaki>
Date: Tue, 7 Oct 2003 00:52:27 +0000
Subject: [PATCH] use &get_chars_matching()

---
 chise2otf/add_adobecid.pl |   10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

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;
     }
-- 
1.7.10.4