| Subject: | Division by zero Bio::Phylo::Treedrawer::SVG |
Using th example code (see below), i get
Illegal division by zero at
/usr/lib/perl5/site_perl/5.8.7/Bio/Phylo/Treedrawer/SVG.pm line 242.
Now i have changed the name of the file to SVG.pm (see a previous bug
report), and the package name, which may account for this error.
Perl 5.8.7 for i386Linux
use Bio::Phylo::Treedrawer;
use Bio::Phylo::IO;
my $treedrawer = Bio::Phylo::Treedrawer->new(
-width => 400,
-height => 600,
-shape => 'CURVY', # curvogram
-mode => 'CLADO', # cladogram
-format => 'SVG'
);
my $tree = Bio::Phylo::IO->parse(
-format => 'newick',
-string => '((A,B),C);'
)->first;
$treedrawer->set_tree($tree);
$treedrawer->set_padding(50);
my $string = $treedrawer->draw;