Ticket [54430c23e3]: revert solution. Tcl_InitStubs is a macro and does this automatically.

Author: oehhar

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;
     }