From 3213a3855a6e367552fecd7afd97649691f3ecfa Mon Sep 17 00:00:00 2001 From: birney Date: Fri, 9 Apr 1999 13:36:46 +0000 Subject: [PATCH] *** empty log message *** svn path=/bioperl-live/trunk/; revision=945 --- Bio/Index/Abstract.pm | 6 ++++-- Bio/Index/Fasta.pm | 2 +- 2 files changed, 5 insertions(+), 3 deletions(-) diff --git a/Bio/Index/Abstract.pm b/Bio/Index/Abstract.pm index 27bda097f..beebfd8b5 100644 --- a/Bio/Index/Abstract.pm +++ b/Bio/Index/Abstract.pm @@ -386,7 +386,6 @@ sub make_index { $i = 0; $self->_file_count(0); } - # see whether this file has been already indexed my ($record,$number,$size); @@ -416,7 +415,10 @@ sub make_index { or $self->throw("Can't add data to file: $file"); # increment file lines - $count++; $self->_file_count($count); + $i++; $self->_file_count($i); + my $temp; + $temp = $self->_file_count(); + } return $count; diff --git a/Bio/Index/Fasta.pm b/Bio/Index/Fasta.pm index 40f2cdbba..3432eb8db 100644 --- a/Bio/Index/Fasta.pm +++ b/Bio/Index/Fasta.pm @@ -90,7 +90,7 @@ use strict; use Bio::Index::Abstract; use Bio::Seq; -@ISA = qw(Bio::Index::Abstract Exporter); +@ISA = qw(Bio::Index::Abstract Bio::DB::BioSeqI Exporter); @EXPORT_OK = qw(); sub _type_stamp { -- 2.11.4.GIT