From ae744957e02b596105fbc0f85ba920f6a88a8bfc Mon Sep 17 00:00:00 2001
From: Alfredo Tupone <tupone@gentoo.org>
Date: Thu, 26 Feb 2026 23:30:41 +0100
Subject: [PATCH] dev-tcltk/tcllib: fix random test

Closes: https://bugs.gentoo.org/947160
Signed-off-by: Alfredo Tupone <tupone@gentoo.org>
---
 dev-tcltk/tcllib/files/tcllib-2.0-stddev.patch | 11 +++++++++++
 dev-tcltk/tcllib/tcllib-2.0.ebuild             |  7 +++++--
 2 files changed, 16 insertions(+), 2 deletions(-)
 create mode 100644 dev-tcltk/tcllib/files/tcllib-2.0-stddev.patch

diff --git a/dev-tcltk/tcllib/files/tcllib-2.0-stddev.patch b/dev-tcltk/tcllib/files/tcllib-2.0-stddev.patch
new file mode 100644
index 0000000000000..3441883a29313
--- /dev/null
+++ b/dev-tcltk/tcllib/files/tcllib-2.0-stddev.patch
@@ -0,0 +1,11 @@
+--- 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
diff --git a/dev-tcltk/tcllib/tcllib-2.0.ebuild b/dev-tcltk/tcllib/tcllib-2.0.ebuild
index 0831ad893d1fa..940673a60b029 100644
--- a/dev-tcltk/tcllib/tcllib-2.0.ebuild
+++ b/dev-tcltk/tcllib/tcllib-2.0.ebuild
@@ -1,4 +1,4 @@
-# Copyright 1999-2024 Gentoo Authors
+# Copyright 1999-2026 Gentoo Authors
 # Distributed under the terms of the GNU General Public License v2
 
 EAPI=8
@@ -28,7 +28,10 @@ DOCS=(
 )
 HTML_DOCS=( idoc/www )
 
-PATCHES=( "${FILESDIR}"/${P}-test.patch )
+PATCHES=(
+	"${FILESDIR}"/${P}-test.patch
+	"${FILESDIR}"/${P}-stddev.patch
+)
 
 src_prepare() {
 	default