@@ -2731,10 +2731,16 @@ } dprintf("Returning"); } +#if TCL_MAJOR_VERSION > 8 +#define MIN_VERSION "9.0" +#else +#define MIN_VERSION "8.5" +#endif + /* *------------------------------------------------------------------- * * Tls_Init -- * @@ -2754,29 +2760,18 @@ 0x00 }; dprintf("Called"); -#if TCL_MAJOR_VERSION > 8 #ifdef USE_TCL_STUBS - if (Tcl_InitStubs(interp, "9.0", 0) == NULL) { + if (Tcl_InitStubs(interp, MIN_VERSION, 0) == NULL) { return TCL_ERROR; } #endif - if (Tcl_PkgRequire(interp, "Tcl", "9.0-", 0) == NULL) { + if (Tcl_PkgRequire(interp, "Tcl", MIN_VERSION, 0) == NULL) { return TCL_ERROR; } -#else -#ifdef USE_TCL_STUBS - if (Tcl_InitStubs(interp, "8.5", 0) == NULL) { - return TCL_ERROR; - } -#endif - if (Tcl_PkgRequire(interp, "Tcl", "8.5-", 0) == NULL) { - return TCL_ERROR; - } -#endif if (TlsLibInit(0) != TCL_OK) { Tcl_AppendResult(interp, "could not initialize SSL library", (char *) NULL); return TCL_ERROR; }