Ticket [54430c23e3]: revert solution. Tcl_InitStubs is a macro and do…

…es this automatically.
tcltk · Dec 10, 2024 · 7d6679b · 7d6679b
1 parent 83999e8
commit 7d6679b
Showing 1 changed file with 3 additions and 6 deletions.
diff --git a/generic/tclsample.c b/generic/tclsample.c
@@ -365,13 +365,10 @@ Sample_Init(
      * - "8.1-": 8.1 and any higher version
      * - "8.1": 8.1.x to 8.7.x
      * - "8.1 9": allow 8.1.x to 8.7.x and 9.x.x, but not 10.x.x
+     * Note that Tcl_InitStubs is a macro, which is replaced by a Tcl version
+     * check only, if TCL_STUBS is not defined (e.g. direct link, static build)
      */
-#ifdef USE_TCL_STUBS
-    if (Tcl_InitStubs(interp, "8.1-", 0) == NULL)
-#else
-    if (Tcl_PkgRequire(interp, "Tcl", "8.1-", 0) == NULL)
-#endif
-    {
+    if (Tcl_InitStubs(interp, "8.1-", 0) == NULL) {
 	return TCL_ERROR;
     }