From: imiyazaki <imiyazaki>
Date: Thu, 23 Oct 2003 16:01:51 +0000 (+0000)
Subject: change regular expression in &de_er
X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fperl.git;a=commitdiff_plain;h=c6aee9332083791e82854080a73f94de75a80007;hp=e0d14956e6b4179eaa2f58b5b6398eb51d5c79f8

change regular expression in &de_er
---

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