Fix output bug of clclassseqv

astanabe · Apr 7, 2022 · 187c861 · 187c861
1 parent 5fed601
commit 187c861
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/clclassseqv.pl b/clclassseqv.pl
@@ -358,6 +358,7 @@ sub makeConcatenatedFiles {
 		$filehandleinput1 = &readFile($inputfiles[$i]);
 		{
 			my $otuname;
+			my $tempignoreotuseq;
 			while (<$filehandleinput1>) {
 				s/\r?\n?$//;
 				s/;size=\d+;*//g;
@@ -377,12 +378,15 @@ sub makeConcatenatedFiles {
 				elsif ($otuname && exists($ignoreotulist{$otuname}) && /^([^>].*)$/) {
 					my $tempseq = $1;
 					$tempseq =~ s/[^A-Za-z]//g;
-					$ignoreotuseq{$otuname} .= $tempseq;
+					$tempignoreotuseq .= $tempseq;
 				}
 				if ($otuname && !exists($ignoreotulist{$otuname})) {
 					print($filehandleoutput2 "$_\n");
 				}
 			}
+			if (!exists($ignoreotuseq{$otuname})) {
+				$ignoreotuseq{$otuname} = $tempignoreotuseq;
+			}
 		}
 		close($filehandleinput1);
 	}