| Previous changeset 17:8031792a6e2c (2017-10-17) Next changeset 19:39b039d82743 (2017-10-19) |
|
Commit message:
Uploaded |
|
modified:
bin/Rcall.pm |
| b |
| diff -r 8031792a6e2c -r fcaea740c23a bin/Rcall.pm --- a/bin/Rcall.pm Tue Oct 17 09:34:09 2017 -0400 +++ b/bin/Rcall.pm Thu Oct 19 04:39:18 2017 -0400 |
| [ |
| @@ -15,7 +15,8 @@ my $i = 0; foreach my $k (sort {$a <=> $b} keys %{$size_hashR}) { - my $percentage = $size_hashR->{$k} * 100 / $size; + my $percentage = 0; + $percentage = $size_hashR->{$k} * 100 / $size if $size != 0; $abs[$i] = $k ; $ord[$i] = $percentage; $i++; } my $abs = join (",", @abs ); |