From 5cd20ba9bf28697e78cb4814bbabfb3a291689e0 Mon Sep 17 00:00:00 2001 From: elserj Date: Sat, 10 Jan 2015 19:55:49 +0000 Subject: [PATCH] Proper detection on lines that only contain a * svn path=/; revision=599 --- interactome_scripts/fasta_verify.pl | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/interactome_scripts/fasta_verify.pl b/interactome_scripts/fasta_verify.pl index 58beb93..de32235 100755 --- a/interactome_scripts/fasta_verify.pl +++ b/interactome_scripts/fasta_verify.pl @@ -57,6 +57,12 @@ while() { print "Error: Blank line found on line $counter in file $in_file\n"; $error_counter++; } + + # detect if line after header only contains a star - is effectively a bland line + if($line =~ /^[*]$/ && $prev_line_is_header == 1) { + print "Error: Blank line found on line $counter in file $in_file\n"; + $error_counter++; + } # detect if header line has tabs in it if($curr_line_is_header ==1 && $line =~ /\t/) { -- 2.34.1