Mercurial > repos > romaingred > pirna_pipeline

diff bin/Rcall.pm @ 18:fcaea740c23a draft

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Uploaded
author romaingred
date Thu, 19 Oct 2017 04:39:18 -0400
parents ee6b4b2072a9
children
line wrap: on
line diff
--- 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 );