[Bioperl-guts-l] bioperl commit

Jason Stajich jason at pub.open-bio.org
Wed Jun 16 16:24:23 EDT 2004


jason
Wed Jun 16 16:24:23 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/Index
In directory pub.open-bio.org:/tmp/cvs-serv21522

Modified Files:
	Hmmer.pm 
Log Message:
probably want to put this after we keep track of headers - per Marc Logghe individually reported bug

bioperl-live/Bio/Index Hmmer.pm,1.1,1.2
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Index/Hmmer.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/bioperl/bioperl-live/Bio/Index/Hmmer.pm	2004/05/06 07:05:59	1.1
+++ /home/repository/bioperl/bioperl-live/Bio/Index/Hmmer.pm	2004/06/16 20:24:23	1.2
@@ -160,8 +160,8 @@
 
 	seek($fh, 0, 0); # The HMMER SearchIO wants the header, so we fetch it
 	while($line = <$fh>) {
-		last if $line =~ /Query sequence:/o;
 		push @header, $line; 
+		last if $line =~ /Query sequence:/o;
 	}
 	seek($fh, $pos, 0);
 



More information about the Bioperl-guts-l mailing list