Overview
| Artifact ID: | 3906839b009618a520b0e4389ddc95a45a871560 |
|---|---|
| Ticket: | 949765ffffffffffffffffffffffffffffffffff |
| Date: | 2004-05-07 17:14:23 |
| User: | davygrvy |
| Artifact Attached: | 21f9603db0f014c95c4356cffe67629ff9234c74 |
| Filename: | patch.txt |
| Description: |
Content:
Index: counter.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/counter/counter.tcl,v
retrieving revision 1.14
diff -c -r1.14 counter.tcl
*** counter.tcl 25 Jan 2004 07:29:21 -0000 1.14
--- counter.tcl 7 May 2004 09:34:41 -0000
***************
*** 630,636 ****
set max $histogram($i)
}
}
! set perSec [expr {$max / $secsPerMinute}]
if {$perSec > $counter(maxPerMinute)} {
set counter(maxPerMinute) $perSec
}
--- 630,636 ----
set max $histogram($i)
}
}
! set perSec [expr {double($max) / $secsPerMinute}]
if {$perSec > $counter(maxPerMinute)} {
set counter(maxPerMinute) $perSec
}