[Bioperl-guts-l] bioperl-run/Bio/Tools/Run/Phylo/PAML Codeml.pm, 1.35, 1.36

Jason Stajich jason at pub.open-bio.org
Sun Sep 25 13:38:27 EDT 2005


Update of /home/repository/bioperl/bioperl-run/Bio/Tools/Run/Phylo/PAML
In directory pub.open-bio.org:/tmp/cvs-serv12662/Bio/Tools/Run/Phylo/PAML

Modified Files:
	Codeml.pm 
Log Message:
silence undef warning


Index: Codeml.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-run/Bio/Tools/Run/Phylo/PAML/Codeml.pm,v
retrieving revision 1.35
retrieving revision 1.36
diff -C2 -d -r1.35 -r1.36
*** Codeml.pm	22 Jul 2005 14:43:04 -0000	1.35
--- Codeml.pm	25 Sep 2005 17:38:25 -0000	1.36
***************
*** 632,636 ****
  sub set_parameter{
     my ($self,$param,$value) = @_;
!    unless ($self->{'no_param_checks'} == 1) {
         if ( ! defined $VALIDVALUES{$param} ) { 
             $self->warn("unknown parameter $param will not be set unless you force by setting no_param_checks to true");
--- 632,636 ----
  sub set_parameter{
     my ($self,$param,$value) = @_;
!    unless ($self->no_param_checks ) {
         if ( ! defined $VALIDVALUES{$param} ) { 
             $self->warn("unknown parameter $param will not be set unless you force by setting no_param_checks to true");
***************
*** 700,704 ****
        $self->{'no_param_checks'} = $value;
      }
!     return $self->{'no_param_checks'};
  }
  
--- 700,704 ----
        $self->{'no_param_checks'} = $value;
      }
!     return $self->{'no_param_checks'} || 0;
  }
  



More information about the Bioperl-guts-l mailing list