[Bioperl-guts-l] bioperl-live/Bio/Tools/Run WrapperBase.pm, 1.27, 1.28

Christopher John Fields cjfields at dev.open-bio.org
Thu Jan 18 12:45:36 EST 2007


Update of /home/repository/bioperl/bioperl-live/Bio/Tools/Run
In directory dev.open-bio.org:/tmp/cvs-serv6509/Bio/Tools/Run

Modified Files:
	WrapperBase.pm 
Log Message:
Bug 2183

Index: WrapperBase.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tools/Run/WrapperBase.pm,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** WrapperBase.pm	12 Jan 2007 11:53:20 -0000	1.27
--- WrapperBase.pm	18 Jan 2007 17:45:34 -0000	1.28
***************
*** 244,249 ****
     $self->io->_io_cleanup();
     if( defined $self->{'_tmpdir'} && -d $self->{'_tmpdir'} ) {
!        # $self->io->rmtree($self->{'_tmpdir'});
!        File::Path->rmtree( $self->{'_tmpdir'} );
     }
  }
--- 244,249 ----
     $self->io->_io_cleanup();
     if( defined $self->{'_tmpdir'} && -d $self->{'_tmpdir'} ) {
!        #$self->io->rmtree($self->{'_tmpdir'}, $self->verbose());
!        File::Path::rmtree( $self->{'_tmpdir'}, $self->verbose());
     }
  }
***************
*** 263,267 ****
     my ($self) = @_;
     unless( defined $self->{'io'} ) {
!        $self->{'io'} = new Bio::Root::IO(-verbose => $self->verbose());
     }
      return $self->{'io'};
--- 263,267 ----
     my ($self) = @_;
     unless( defined $self->{'io'} ) {
!        $self->{'io'} = new Bio::Root::IO(-verbose => 1);
     }
      return $self->{'io'};



More information about the Bioperl-guts-l mailing list