From 93683c2163f9bbab667929cc02abed6eb7fec86b Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Mon, 26 Jul 1999 13:28:46 +0000
Subject: [PATCH] avoid DIVZERO

p4raw-id: //depot/perl@3778
---
 utils/dprofpp.PL | 2 ++
 1 file changed, 2 insertions(+)

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