From: imiyazaki <imiyazaki>
Date: Mon, 3 Nov 2003 11:58:51 +0000 (+0000)
Subject: fix bug in &de_er(). treat $value as decimal explicitly in case of daikanwa and gt.
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fperl.git;a=commitdiff_plain;h=5495049e90db964459226c57a3b9fdfef0658102

fix bug in &de_er(). treat $value as decimal explicitly in case of daikanwa and gt.
---

diff --git a/Chise_utils/Chise_utils.pm b/Chise_utils/Chise_utils.pm
index d82f49b..257f27a 100644
--- a/Chise_utils/Chise_utils.pm
+++ b/Chise_utils/Chise_utils.pm
@@ -245,7 +245,9 @@ sub de_er{
 	$output_char=pack("U",hex($1));
     }elsif($er=~/^(?:I\-)?($er_prefix_re)\-?([0-9a-fA-F]+)$/){
 	($atr,$value)=($1,$2);
-	unless($er_alias{$atr}=~/daikanwa|gt/){
+	if($er_alias{$atr}=~/daikanwa|gt/){
+	    $value+=0;
+	}else{
 	    $value=hex($value);
 	}
 	($output_char)=&get_chars_matching($er_alias{$atr},$value);