From 187c8610a8e0ece3bad5524c41e28c92256eea4b Mon Sep 17 00:00:00 2001
From: "Akifumi S. Tanabe" <akifumi.tanabe+github@gmail.com>
Date: Thu, 7 Apr 2022 19:07:26 +0900
Subject: [PATCH] Fix output bug of clclassseqv

---
 clclassseqv.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/clclassseqv.pl b/clclassseqv.pl
index 5553253..4b3ba20 100755
--- 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);
 	}