[Bioperl-guts-l] bioperl-live/Bio/DB/GFF/Adaptor/berkeleydb iterator.pm, 1.1, 1.2

[Lincoln Stein]

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

Modified Files:
	iterator.pm 
Log Message:
improved performance and storage characteristics


Index: iterator.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/GFF/Adaptor/berkeleydb/iterator.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** iterator.pm	27 Jul 2005 22:15:15 -0000	1.1
--- iterator.pm	29 Jul 2005 13:38:13 -0000	1.2
***************
*** 36,40 ****
  package Bio::DB::GFF::Adaptor::berkeleydb::iterator;
  use strict;
- use Storable 'thaw';
  # $Id$
  
--- 36,39 ----
***************
*** 62,68 ****
    while (1) {
      my (undef,$value) = each %$data;
!     my $feature       = thaw($value);
!     if ($feature) {
!       $features   = $callback->(@{$feature});
        last if $features;
      } else {
--- 61,67 ----
    while (1) {
      my (undef,$value) = each %$data;
!     my @feature       = split ($;,$value);
!     if (@feature) {
!       $features   = $callback->(@feature);
        last if $features;
      } else {