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

[chise/perl.git] / Chise_utils / Chise_utils.pm

diff --git a/Chise_utils/Chise_utils.pm b/Chise_utils/Chise_utils.pm
index 5967978..2e13949 100644 (file)
--- 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]+)/){