From 53c2205075f968f4136840bb7d29b77378d2848b Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Mon, 11 Aug 2014 18:03:41 +0000
Subject: [PATCH] Fixed species names with dots or commas in names

svn path=/; revision=580
---
 interactome_scripts/species_tree_names_fix.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interactome_scripts/species_tree_names_fix.pl b/interactome_scripts/species_tree_names_fix.pl
index 3e9060a..37e316f 100755
--- 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{
-- 
2.34.1