[rpms/tcltls] epel10: Fix loading on tls 9.0 (fixes #2361443)

[rpms/tcltls] epel10: Fix loading on tls 9.0 (fixes #2361443)

[Sander Hoentjen]

A new commit has been pushed.

Repo   : rpms/tcltls
Branch : epel10
Commit : 6ab6d85f208287fa8dd538a4346a33f34d8f6284
Author : Sander Hoentjen <shoentjen@antagonist.nl>
Date   : 2025-05-07T14:48:43+02:00
Stats  : +30/-0 in 2 file(s)
URL    : https://src.fedoraproject.org/rpms/tcltls/c/6ab6d85f208287fa8dd538a4346a33f34d8f6284?branch=epel10

Log:
Fix loading on tls 9.0 (fixes #2361443)

---
diff --git a/tcltls-1.7.22-tcl-9_0_third.patch b/tcltls-1.7.22-tcl-9_0_third.patch
new file mode 100644
index 0000000..2cca72f
--- /dev/null
+++ b/tcltls-1.7.22-tcl-9_0_third.patch
@@ -0,0 +1,29 @@
+diff --git a/tls.c b/tls.c
+index e3ab4af..86165c1 100644
+--- a/tls.c
++++ b/tls.c
+@@ -1717,6 +1717,12 @@ void Tls_Clean(State *statePtr) {
+     dprintf("Returning");
+ }
+ \f
++#if TCL_MAJOR_VERSION > 8
++#define MIN_VERSION "9.0"
++#else
++#define MIN_VERSION "8.5"
++#endif
++
+ /*
+  *-------------------------------------------------------------------
+  *
+@@ -1746,9 +1752,9 @@ int Tls_Init(Tcl_Interp *interp) {
+ 	 */
+ 	if (
+ #ifdef USE_TCL_STUBS
+-	    Tcl_InitStubs(interp, "8.4", 0)
++	    Tcl_InitStubs(interp, MIN_VERSION, 0)
+ #else
+-	    Tcl_PkgRequire(interp, "Tcl", "8.4-", 0)
++	    Tcl_PkgRequire(interp, "Tcl", MIN_VERSION, 0)
+ #endif
+ 	     == NULL) {
+ 		return TCL_ERROR;

diff --git a/tcltls.spec b/tcltls.spec
index 21bea8e..26bcefa 100644
--- a/tcltls.spec
+++ b/tcltls.spec
@@ -18,6 +18,7 @@ Patch3:         tcltls-1.7.22-fall-through.patch
 Patch4:         tcltls-1.7.22-openssl3.patch
 Patch5:         tcltls-1.7.22-tcl-9_0.patch
 Patch6:         tcltls-1.7.22-tcl-9_0_second.patch
+Patch7:         tcltls-1.7.22-tcl-9_0_third.patch
 
 BuildRequires:  make
 %if 0%{?fedora} || 0%{?rhel} >= 8