Change filename split so that errant dashes won't cause incorrect species lookups

svn path=/; revision=48

diff --git a/interactome_scripts/inparanoid_output_parse.pl b/interactome_scripts/inparanoid_output_parse.pl
index bb8de08839c331f818bcd420fe3fec271051af71..350270c077545c5a041f5128e0284d719410fac7 100755 (executable)
--- 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;