From: imiyazaki <imiyazaki>
Date: Tue, 28 Oct 2003 13:42:45 +0000 (+0000)
Subject: enable &de_er() to work.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=c1ab872978f1d465bbe4aa99143363b438867f78;p=chise%2Fperl.git

enable &de_er() to work.
---

diff --git a/Chise_utils/scripts/sample.pl b/Chise_utils/scripts/sample.pl
index 5548e96..a287ab2 100644
--- a/Chise_utils/scripts/sample.pl
+++ b/Chise_utils/scripts/sample.pl
@@ -52,6 +52,7 @@ if($opt_help
     exit 1;
 }else{
     $char=shift or $char="";
+    $char=&de_er($char);
 }
 
 if($opt_mapfrom){
@@ -81,7 +82,6 @@ if($opt_map){
 	print STDERR "No map for $opt_rev_map.\n";
     }
 }elsif($opt_allatr){
-    $char=&de_er($char) if($char=~/\d/);
     print $char,"\n";
     foreach $atr (sort keys %db){
 	if($value=&get_char_attribute($char,$atr)){
@@ -89,7 +89,6 @@ if($opt_map){
 	}
     }
 }elsif($opt_atr){
-    $char=&de_er($char) if($char=~/\d/);
     print $char,"\n";
     print "  ",$opt_atr,":",&get_char_attribute($char,$opt_atr),"\n";
 }elsif($opt_showatr){