From: elserj <elserj@localhost>
Date: Sat, 10 Jan 2015 19:55:49 +0000 (+0000)
Subject: Proper detection on lines that only contain a *
X-Git-Url: http://gitweb.planteome.org/?a=commitdiff_plain;h=5cd20ba9bf28697e78cb4814bbabfb3a291689e0;p=old-jaiswallab-svn%2F.git

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 58beb93..de32235 100755
--- 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/) {