From 1c749c4f55c17c41ea1d1631877ca8760273ad43 Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Thu, 23 Sep 2010 20:54:56 +0000
Subject: [PATCH] Change filename split so that errant dashes won't cause
 incorrect species lookups

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

diff --git a/interactome_scripts/inparanoid_output_parse.pl b/interactome_scripts/inparanoid_output_parse.pl
index bb8de08..350270c 100755
--- a/interactome_scripts/inparanoid_output_parse.pl
+++ b/interactome_scripts/inparanoid_output_parse.pl
@@ -97,7 +97,7 @@ foreach my $input_file (@files) {
 
 	
 
-	my ($species_1, $species_2) = split("-", $input_file);
+	my ($species_1, $species_2) = split("fa-", $input_file);
 	$species_1 = find_species($species_1);
 	$species_2 = find_species($species_2);
 	my $species_table = $species_1."_".$species_2;
-- 
2.34.1