From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 26 Jul 1999 13:28:46 +0000 (+0000)
Subject: avoid DIVZERO
X-Git-Tag: perl-5.6.0~1166
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/93683c2163f9bbab667929cc02abed6eb7fec86b

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;