Files
gentoo/dev-tcltk/tcllib/files/tcllib-2.0-stddev.patch
Alfredo Tupone ae744957e0 dev-tcltk/tcllib: fix random test
Closes: https://bugs.gentoo.org/947160
Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
2026-02-26 23:31:27 +01:00

12 lines
450 B
Diff

--- a/modules/simulation/random.test 2026-02-26 23:07:06.436861304 +0100
+++ b/modules/simulation/random.test 2026-02-26 23:12:52.124392444 +0100
@@ -167,7 +167,7 @@
set stdev [expr {$stdev + $rnd * $rnd}]
}
set mean [expr {$mean / 1000.0}]
- set stdev [expr {sqrt($stdev / 1000.0)}]
+ set stdev [expr {sqrt($stdev / 1000.0 - $mean * $mean)}]
#
# We use a rough estimate for the deviation in the mean and stdev