From: imiyazaki <imiyazaki>
Date: Fri, 24 Oct 2003 14:09:34 +0000 (+0000)
Subject: remove $prefix and $suffix if $prefix is amp in &de_er.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=79a14850fbd546e24e08b9c72ae03fc772c902be;p=chise%2Fperl.git

remove $prefix and $suffix if $prefix is amp in &de_er.
---

diff --git a/Chise_utils/Chise_utils.pm b/Chise_utils/Chise_utils.pm
index 5967978..2e13949 100644
--- a/Chise_utils/Chise_utils.pm
+++ b/Chise_utils/Chise_utils.pm
@@ -238,6 +238,7 @@ sub de_er{
     $er=~/^(amp|&)?(.+?)(;)?$/
 	and $prefix=$1,$er=$2,$suffix=$3;
     $prefix or $prefix="",$suffix or $suffix="";
+    if($prefix eq 'amp'){$prefix="",$suffix="";}
     if($er=~/^\d+$/){
 	$output_char=pack("U",$er);
     }elsif($er=~/^U[\+\-]([a-fA-F\d]+)/){