From 820b9c2d522d72f52d1754ffd4707f96f1b0e4df Mon Sep 17 00:00:00 2001
From: elserj <elserj@localhost>
Date: Fri, 1 Mar 2019 21:03:05 +0000
Subject: [PATCH] Add dot (.) to regex so that fasta files with them don't
 error

svn path=/; revision=660
---
 interactome_scripts/fasta_verify.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/interactome_scripts/fasta_verify.pl b/interactome_scripts/fasta_verify.pl
index de32235..bc5b2fe 100755
--- a/interactome_scripts/fasta_verify.pl
+++ b/interactome_scripts/fasta_verify.pl
@@ -53,7 +53,7 @@ while(<in_file>) {
 	}
 	
 	# detect if line after header is blank
-	if($line !~ /^[a-zA-Z*]/ && $prev_line_is_header == 1) {
+	if($line !~ /^[a-zA-Z*.]/ && $prev_line_is_header == 1) {
 		print "Error: Blank line found on line $counter in file $in_file\n";
 		$error_counter++;
 	}
-- 
2.34.1