avoid DIVZERO

p4raw-id: //depot/perl@3778

diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL
index 0c57940..ba099c0 100644 (file)
--- 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;