[Bioperl-guts-l] bioperl-live/Bio/DB GFF.pm,1.128,1.129

[Lincoln Stein]

Update of /home/repository/bioperl/bioperl-live/Bio/DB
In directory pub.open-bio.org:/tmp/cvs-serv10410/Bio/DB

Modified Files:
	GFF.pm 
Log Message:
fixed off-by-one reporting error in verbose progress messages


Index: GFF.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF.pm,v
retrieving revision 1.128
retrieving revision 1.129
diff -C2 -d -r1.128 -r1.129
*** GFF.pm	29 Jul 2005 16:23:44 -0000	1.128
--- GFF.pm	29 Jul 2005 17:06:52 -0000	1.129
***************
*** 2332,2336 ****
      }
  
!     print STDERR $count-1," features loaded$lineend" if $self->{__verbose__} && ++$count % 1000 == 0;
  
      if (/^\#\#\s*sequence-region\s+(\S+)\s+(\d+)\s+(\d+)/i) { # header line
--- 2332,2336 ----
      }
  
!     print STDERR $count," features loaded$lineend" if $self->{__verbose__} && ++$count % 1000 == 0;
  
      if (/^\#\#\s*sequence-region\s+(\S+)\s+(\d+)\s+(\d+)/i) { # header line
***************
*** 2442,2446 ****
        $seq    = '';
        $loaded++;
!       print STDERR $loaded," features loaded$lineend" if $self->{__verbose__} && $loaded %1000;
      } else {
        $seq .= $_;
--- 2442,2446 ----
        $seq    = '';
        $loaded++;
!       print STDERR $loaded," sequences loaded$lineend" if $self->{__verbose__} && $loaded %1000;
      } else {
        $seq .= $_;