From e014376a36303ffcc81a2fa09456a71ebfc68f2b Mon Sep 17 00:00:00 2001
From: Matt Mechtley <mmechtley@gmail.com>
Date: Thu, 27 Apr 2017 21:43:37 -0600
Subject: [PATCH] Fix x->N replacement in fasta name lines

---
 MITObim.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/MITObim.pl b/MITObim.pl
index 3d7bc4e..932ad89 100755
--- a/MITObim.pl
+++ b/MITObim.pl
@@ -553,7 +553,9 @@ sub extract_backbone{
 	open(FH1,"<tmp_$strainname.unpadded.fasta") or die "$!\nIs the sampleID identical to the one used in the previous assembly iteration / intial MIRA assembly ?\n";
 	open(FH2,">$outfile") or die $!;
 	while (<FH1>) {
-		$_ =~ s/x/N/g;
+		if($_ !~ m/^>/) {
+			$_ =~ s/x/N/g;
+		}
 		print FH2 $_; 
 	}
 	close(FH1);