Fixed non-unique gene-id detection. Previous version only detected unique headers

svn path=/; revision=53

diff --git a/interactome_scripts/fasta_verify.pl b/interactome_scripts/fasta_verify.pl
index ac6eb842959e9e02e00d155628ccbc17e080ac74..b3c1d6acf2c378939734563cf1c8d6ee8e48f9e2 100755 (executable)
--- a/interactome_scripts/fasta_verify.pl
+++ b/interactome_scripts/fasta_verify.pl
@@ -52,8 +52,7 @@ while(<in_file>) {
        # set prev_line_header info for next time through loop
        if($curr_line_is_header) {
                $prev_line_is_header = 1;
-               #my $gene = find_gene($line,$species);
-               my $gene = $line;
+               my $gene = find_gene($line,$species);
                if(!defined($gene_id_hash{$gene})) {
                        $gene_id_hash{$gene} = $line;
                }else{