[Bioperl-guts-l] bioperl-live/Bio/DB/SeqFeature/Store berkeleydb.pm, 1.10, 1.11

Heikki Lehvaslaiho heikki at dev.open-bio.org
Thu Sep 28 14:33:22 EDT 2006


Update of /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store
In directory dev.open-bio.org:/tmp/cvs-serv10281

Modified Files:
	berkeleydb.pm 
Log Message:
using lexically scoped file handles


Index: berkeleydb.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/DB/SeqFeature/Store/berkeleydb.pm,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** berkeleydb.pm	25 Sep 2006 20:10:31 -0000	1.10
--- berkeleydb.pm	28 Sep 2006 18:33:20 -0000	1.11
***************
*** 286,294 ****
    my $maxtime   = 0;
  
!   opendir (D,$autodir) or $self->throw("Couldn't open directory $autodir for reading: $!");
    my @reindex;
    my $fasta_files_present;
  
!   while (defined (my $node = readdir(D))) {
      next if $node =~ /^\./;
      my $path      = "$autodir/$node";
--- 286,294 ----
    my $maxtime   = 0;
  
!   opendir (my $D,$autodir) or $self->throw("Couldn't open directory $autodir for reading: $!");
    my @reindex;
    my $fasta_files_present;
  
!   while (defined (my $node = readdir($D))) {
      next if $node =~ /^\./;
      my $path      = "$autodir/$node";
***************
*** 313,317 ****
    }
  
!   close D;
  
    my $timestamp_time  = _mtime($self->_mtime_path) || 0;
--- 313,317 ----
    }
  
!   close $D;
  
    my $timestamp_time  = _mtime($self->_mtime_path) || 0;
***************
*** 392,397 ****
              : "<";
  
!   open (F,$mode,$self->_notes_path) or $self->throw($self->_notes_path.": $!");
!   $self->notes_db(\*F);
  }
  
--- 392,397 ----
              : "<";
  
!   open (my $F,$mode,$self->_notes_path) or $self->throw($self->_notes_path.": $!");
!   $self->notes_db($F);
  }
  



More information about the Bioperl-guts-l mailing list