Proper detection on lines that only contain a *

svn path=/; revision=599

diff --git a/interactome_scripts/fasta_verify.pl b/interactome_scripts/fasta_verify.pl
index 58beb937f7e9b957645c91b2ef06072046d8f158..de32235753e34f10220dd8187710cfa69b8a7f28 100755 (executable)
--- a/interactome_scripts/fasta_verify.pl
+++ b/interactome_scripts/fasta_verify.pl
@@ -57,6 +57,12 @@ while(<in_file>) {
                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/) {