X-Git-Url: https://git.donarmstrong.com/?p=function2gene.git;a=blobdiff_plain;f=bin%2Ffunction2gene;h=07dd2aed5f40500c9c7fc59fbae01c8d58444b28;hp=922deac9ca044b09f37998fe0e50eec3870ec28c;hb=0486e6434cd182e8b30ba008d98ad3d3f008d2ab;hpb=3557eb364c40602a2f2d3f4c2a68edd6ee00b632

diff --git a/bin/function2gene b/bin/function2gene
index 922deac..07dd2ae 100755
--- 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);