[Bioperl-guts-l] [14444] bioperl-live/trunk/Bio/SearchIO/Writer/HTMLResultWriter.pm: bug 2431

[Christopher John Fields]

Revision: 14444
Author:   cjfields
Date:     2008-01-16 21:57:04 -0500 (Wed, 16 Jan 2008)

Log Message:
-----------
bug 2431

Modified Paths:
--------------
    bioperl-live/trunk/Bio/SearchIO/Writer/HTMLResultWriter.pm

Modified: bioperl-live/trunk/Bio/SearchIO/Writer/HTMLResultWriter.pm
===================================================================
--- bioperl-live/trunk/Bio/SearchIO/Writer/HTMLResultWriter.pm	2008-01-16 10:54:01 UTC (rev 14443)
+++ bioperl-live/trunk/Bio/SearchIO/Writer/HTMLResultWriter.pm	2008-01-17 02:57:04 UTC (rev 14444)
@@ -417,7 +417,7 @@
 						    length($hspvals[2]->{'start'}),
 						    length($hspvals[2]->{'end'}));
 		my $count = 0;
-		while ( $count <= $hsp->length('total') ) {
+		while ( $count < $hsp->length('total') ) {
 		    foreach my $v ( @hspvals ) {
 			my $piece = substr($v->{'seq'}, $v->{'index'} + $count,
 					   $AlignmentLineWidth);