[Bioperl-guts-l] bioperl-live/Bio/Tools/Phylo PAML.pm,1.50,1.51

Torsten Seemann tseemann at dev.open-bio.org
Wed Oct 4 01:52:08 EDT 2006


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

Modified Files:
	PAML.pm 
Log Message:
Replaced Bio::Root::IO->catfile/rmtree/$TEMPDIR with File::Spec and
File::Path native Perl 5.6.1 equivalents.


Index: PAML.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tools/Phylo/PAML.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** PAML.pm	26 Sep 2006 22:03:18 -0000	1.50
--- PAML.pm	4 Oct 2006 05:52:06 -0000	1.51
***************
*** 180,183 ****
--- 180,184 ----
  # other objects used:
  use IO::String;
+ use File::Spec;
  use Bio::TreeIO;
  use Bio::Tools::Phylo::PAML::Result;
***************
*** 1295,1299 ****
    return unless $self->{'_dir'} && -d $self->{'_dir'} && -r $self->{'_dir'};
  
!   my $rstfile = Bio::Root::IO->catfile($self->{'_dir'},$RSTFILENAME);
    return unless -e $rstfile && ! -z $rstfile;
    
--- 1296,1300 ----
    return unless $self->{'_dir'} && -d $self->{'_dir'} && -r $self->{'_dir'};
  
!   my $rstfile = File::Spec->catfile($self->{'_dir'},$RSTFILENAME);
    return unless -e $rstfile && ! -z $rstfile;
    



More information about the Bioperl-guts-l mailing list