projects
/
chise
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
eb33c39
)
fix bug in &de_er(). treat $value as decimal explicitly in case of daikanwa and gt.
author
imiyazaki
<imiyazaki>
Mon, 3 Nov 2003 11:58:51 +0000
(11:58 +0000)
committer
imiyazaki
<imiyazaki>
Mon, 3 Nov 2003 11:58:51 +0000
(11:58 +0000)
Chise_utils/Chise_utils.pm
patch
|
blob
|
history
diff --git
a/Chise_utils/Chise_utils.pm
b/Chise_utils/Chise_utils.pm
index
d82f49b
..
257f27a
100644
(file)
--- 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);