# HG changeset patch
# User romaingred
# Date 1508402358 14400
# Node ID fcaea740c23a0ca779e83c3f3c6a392acef78512
# Parent  8031792a6e2c2f23a4a6947c624351ae88e2e143
Uploaded

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 );