deal with possibility of regexp in the sequence name

svn path=/bioperl-live/trunk/; revision=8735
bioperl · Jan 25, 2005 · 06d2ca4 · 06d2ca4
1 parent e28a430
commit 06d2ca4
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/scripts/searchio/fastam9_to_table.PLS b/scripts/searchio/fastam9_to_table.PLS
@@ -89,7 +89,7 @@ while(<>) {
 	if( /\-\s+(\d+)\s+aa\s+$/ ){
 	    $data{'qlen'} = $1;
 	}
-    } elsif( $hitsection && /^>>>$data{'qname'}/ ) {	
+    } elsif( $hitsection && /^>>>\Q$data{'qname'}/ ) {	
 	$hitsection = 0;
     } elsif( /^The best scores are:/ ) {	       
 	$hitsection = 1;