From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 26 Jul 1999 13:28:46 +0000 (+0000)
Subject: avoid DIVZERO
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93683c2163f9bbab667929cc02abed6eb7fec86b;p=p5sagit%2Fp5-mst-13.2.git

avoid DIVZERO

p4raw-id: //depot/perl@3778
---

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 0c57940..ba099c0 100644
--- a/utils/dprofpp.PL
+++ b/utils/dprofpp.PL
@@ -437,6 +437,8 @@ Main: {
 #
 sub settime {
   my( $runtime, $hz ) = @_;
+
+  $hz ||= 1;
   
   if( $opt_r ){
     $$runtime = ($rrun_rtime - $overhead - $over_rtime * $total_marks/$over_tests/2)/$hz;