Add results to table; modify the search parssers to work better. Fix error in get_ncb...

[function2gene.git] / bin / function2gene

diff --git a/bin/function2gene b/bin/function2gene
index 922deac9ca044b09f37998fe0e50eec3870ec28c..07dd2aed5f40500c9c7fc59fbae01c8d58444b28 100755 (executable)
--- a/bin/function2gene
+++ b/bin/function2gene
@@ -281,9 +281,9 @@ if ($actions{combine}) {
                           @parsed_results,
                          );
      for my $result (@parsed_results) {
-         s/^parsed_results_//;
-         s/\.txt$//;
-         my ($db,$keyword) = split /_/, $_, 2;
+         $result =~ s/^parsed_results_//;
+         $result =~ s/\.txt$//;
+         my ($db,$keyword) = split /_/, $result, 2;
          $state{done_keywords}{combined}{$db}{$keyword} = 1;
      }
      save_state(\%state);