Extend stubs require string to an open string

This commit is contained in:
Harald Oehlmann 2023-12-11 19:03:24 +01:00
parent 03948c1d28
commit 2e350232de

View File

@ -598,9 +598,9 @@ EXPORT int Zint_Init (Tcl_Interp *interp)
int * tkFlagPtr; int * tkFlagPtr;
/*------------------------------------------------------------------------*/ /*------------------------------------------------------------------------*/
#ifdef USE_TCL_STUBS #ifdef USE_TCL_STUBS
if (Tcl_InitStubs(interp, "8.5", 0) == NULL) if (Tcl_InitStubs(interp, "8.5-", 0) == NULL)
#else #else
if (Tcl_PkgRequire(interp, "Tcl", "8.5", 0) == NULL) if (Tcl_PkgRequire(interp, "Tcl", "8.5-", 0) == NULL)
#endif #endif
{ {
return TCL_ERROR; return TCL_ERROR;