Close STATS file for DOMINO mapping

molevol-ub · Oct 15, 2018 · 36a41a8 · 36a41a8
1 parent d7bbe15
commit 36a41a8
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/perl/DM_MarkerScan_v1.0.3.pl b/src/perl/DM_MarkerScan_v1.0.3.pl
@@ -1803,7 +1803,8 @@ =head1 CITATION
 				print STATS "Reads discarded (multimapping, unmapped, low quality reads): $discard_reads\n";	print LOG "Reads discarded (multimapping, unmapped, low quality reads): $discard_reads\n";
 				print STATS "Reads remaining: $good_reads\t( ".$h." %)\n";										print LOG "Reads remaining: $good_reads\t( ".$h." %)\n";
 				print LOG "============================================================\n"; 
-				print LOG "\n\n\n";			
+				print STATS "============================================================\n"; 
+				print LOG "\n\n\n"; close (STATS);			
 
 				DOMINO::printDump(\%domino_files_split_mapping, $domino_files{$reads}{"DUMP_Mapping::Ref:".$reference_identifier}[0]);
 				$pm_read_Reference->finish(); # pass an exit code to finish