From 2e350232dec4c785b9da8a54f6814376c5f152e7 Mon Sep 17 00:00:00 2001
From: Harald Oehlmann <harald.oehlmann@elmicron.de>
Date: Mon, 11 Dec 2023 19:03:24 +0100
Subject: [PATCH] Extend stubs require string to an open string

---
 backend_tcl/zint.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/backend_tcl/zint.c b/backend_tcl/zint.c
index 92f9529b..291b4e52 100644
--- a/backend_tcl/zint.c
+++ b/backend_tcl/zint.c
@@ -598,9 +598,9 @@ EXPORT int Zint_Init (Tcl_Interp *interp)
     int * tkFlagPtr;
     /*------------------------------------------------------------------------*/
 #ifdef USE_TCL_STUBS
-    if (Tcl_InitStubs(interp, "8.5", 0) == NULL)
+    if (Tcl_InitStubs(interp, "8.5-", 0) == NULL)
 #else
-    if (Tcl_PkgRequire(interp, "Tcl", "8.5", 0) == NULL)
+    if (Tcl_PkgRequire(interp, "Tcl", "8.5-", 0) == NULL)
 #endif
     {
         return TCL_ERROR;