diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 13:28:46 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-26 13:28:46 +0000 |
| commit | 93683c2163f9bbab667929cc02abed6eb7fec86b (patch) | |
| tree | 6720cf08406ad4e5a15aa33d5be88f4f6cb63923 /utils/dprofpp.PL | |
| parent | 520c758a267ecaffc48416a901e0ba5e43b7a2d3 (diff) | |
| download | perl-93683c2163f9bbab667929cc02abed6eb7fec86b.tar.gz | |
avoid DIVZERO
p4raw-id: //depot/perl@3778
Diffstat (limited to 'utils/dprofpp.PL')
| -rw-r--r-- | utils/dprofpp.PL | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/utils/dprofpp.PL b/utils/dprofpp.PL index 0c57940014..ba099c0279 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; |