Fixed species names with dots or commas in names

svn path=/; revision=580

diff --git a/interactome_scripts/species_tree_names_fix.pl b/interactome_scripts/species_tree_names_fix.pl
index 3e9060aba57cc4fae510a1d73911bd6287c3b332..37e316f3699d06b91b536f6e4a8eb403079a3d58 100755 (executable)
--- a/interactome_scripts/species_tree_names_fix.pl
+++ b/interactome_scripts/species_tree_names_fix.pl
@@ -30,7 +30,7 @@ while (<table_file>){
        my ($spec_id,$spec_name) = split("\t",$line);
        $spec_name =~ s/\.fasta//g;
        $spec_name =~ s/\.fa//g;
-       my ($spec_genus, $spec_species) = split(/[_,.]/,$spec_name);
+       my ($spec_genus, $spec_species) = split(/[_]/,$spec_name);
        if (defined($spec_species)) {
                        $spec_name = $spec_genus . " " . $spec_species;
        }else{