[Bioperl-guts-l] bioperl-live/Bio/Tree DistanceFactory.pm,1.4,1.5

Jason Stajich jason at pub.open-bio.org
Thu Apr 14 17:53:04 EDT 2005


Update of /home/repository/bioperl/bioperl-live/Bio/Tree
In directory pub.open-bio.org:/tmp/cvs-serv13839/Bio/Tree

Modified Files:
	DistanceFactory.pm 
Log Message:
respect interface design


Index: DistanceFactory.pm
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Tree/DistanceFactory.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** DistanceFactory.pm	17 Apr 2004 09:31:10 -0000	1.4
--- DistanceFactory.pm	14 Apr 2005 21:53:02 -0000	1.5
***************
*** 177,181 ****
     my $precisionstr = "%.$Precision"."f";
  
!    my @names =  @{$distmat->names || []};
     my $N = scalar @names;
     my ($i,$j,$m, at nodes,$mat, at r);
--- 177,181 ----
     my $precisionstr = "%.$Precision"."f";
  
!    my @names =  $distmat->column_names;
     my $N = scalar @names;
     my ($i,$j,$m, at nodes,$mat, at r);
***************
*** 377,381 ****
     my ($i,$j,$x,$y, at dmat, at orig, at nodes);
  
!    my @names = @{$distmat->names || []};
     my $c = 0;
     my @clusters = map { 
--- 377,381 ----
     my ($i,$j,$x,$y, at dmat, at orig, at nodes);
  
!    my @names = $distmat->column_names;
     my $c = 0;
     my @clusters = map { 
***************
*** 543,547 ****
  sub check_additivity{
     my ($self,$matrix) = @_;
!    my @names = @{$matrix->names || {}};
     my $len = scalar @names;
     return unless $len >= 4;
--- 543,547 ----
  sub check_additivity{
     my ($self,$matrix) = @_;
!    my @names = $matrix->column_names;
     my $len = scalar @names;
     return unless $len >= 4;



More information about the Bioperl-guts-l mailing list