From: Petr Danecek <pd3@sanger.ac.uk>
Date: Thu, 3 Feb 2011 08:13:48 +0000 (+0000)
Subject: Prevent division by zero
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=1ee2affa059409e2f49a846e6860ea583222182b;p=samtools.git

Prevent division by zero
---

diff --git a/bcftools/vcfutils.pl b/bcftools/vcfutils.pl
index 3c962ec..12807c6 100755
--- a/bcftools/vcfutils.pl
+++ b/bcftools/vcfutils.pl
@@ -201,7 +201,7 @@ Note: This command discards indels. Output: QUAL #non-indel #SNPs #transitions #
 	  my @x;
 	  $x[0] = sprintf("%.4f", $c[1]-$c[2]? $c[2] / ($c[1] - $c[2]) : 100);
 	  $x[1] = sprintf("%.4f", $hsize? $c[3] / $hsize : 0);
-	  $x[2] = sprintf("%.4f", $c[3] / $c[1]);
+	  $x[2] = sprintf("%.4f", $c[1] ? $c[3] / $c[1] : 0);
 	  my $a = $c[1] - $lc[1];
 	  my $b = $c[2] - $lc[2];
 	  $x[3] = sprintf("%.4f", $a-$b? $b / ($a-$b) : 100);