created.

[chise/perl.git] / Chise_utils / sample.PL

diff --git a/Chise_utils/sample.PL b/Chise_utils/sample.PL
index 4ac5c89..5548e96 100644 (file)
--- a/Chise_utils/sample.PL
+++ b/Chise_utils/sample.PL
@@ -61,8 +61,7 @@ if($opt_mapfrom){
 }
 
 if($opt_map){
-    &get_db($opt_map);
-    if(defined(%{$chardb{$opt_map}})){
+    if(&get_db($opt_map)){
        foreach $char (sort keys %{$chardb{$opt_map}}){
            if($chardb{$opt_map}->{$char}){
                print $char,"\t",$chardb{$opt_map}->{$char},"\n";
@@ -72,8 +71,7 @@ if($opt_map){
        print STDERR "No map for $opt_map.\n";
     }
 }elsif($opt_rev_map){
-    &get_reverse_db($opt_rev_map);
-    if(defined(%{$reverse_chardb{$opt_rev_map}})){
+    if(&get_reverse_db($opt_rev_map)){
        foreach $char (sort keys %{$reverse_chardb{$opt_rev_map}}){
            if($reverse_chardb{$opt_rev_map}->{$char}){
                print $char,"\t",$reverse_chardb{$opt_rev_map}->{$char},"\n";