[Bioperl-guts-l] bioperl-live/Bio/AlignIO phylip.pm,1.38,1.39

Christopher John Fields cjfields at dev.open-bio.org
Tue Jan 16 13:09:01 EST 2007


Update of /home/repository/bioperl/bioperl-live/Bio/AlignIO
In directory dev.open-bio.org:/tmp/cvs-serv1507

Modified Files:
	phylip.pm 
Log Message:
Bug 2185

Index: phylip.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/AlignIO/phylip.pm,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** phylip.pm	26 Sep 2006 22:03:05 -0000	1.38
--- phylip.pm	16 Jan 2007 18:08:59 -0000	1.39
***************
*** 163,167 ****
      $entry = $self->_readline and
          ($seqcount, $residuecount) = $entry =~ /\s*(\d+)\s+(\d+)/;
!     return 0 unless $seqcount and $residuecount;
  
      # first alignment section
--- 163,167 ----
      $entry = $self->_readline and
          ($seqcount, $residuecount) = $entry =~ /\s*(\d+)\s+(\d+)/;
!     return unless $seqcount and $residuecount;
  
      # first alignment section
***************
*** 233,237 ****
  	}
      }
!     return 0 if scalar @names < 1;
  
      # sequence creation
--- 233,237 ----
  	}
      }
!     return if scalar @names < 1;
  
      # sequence creation



More information about the Bioperl-guts-l mailing list