Set bounded range until 9.x.x. THanks to Don for the suggestion.

tcltk · Dec 17, 2024 · 6c2e759 · 6c2e759
1 parent 849f777
commit 6c2e759
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/generic/tclsample.c b/generic/tclsample.c
@@ -360,10 +360,10 @@ Sample_Init(
     Tcl_CmdInfo info;
 
     /*
-     * Support any TCL version starting with 8.5.0.
-     * The "-" stands for "min-unbound" and thus includes TCL 9
+     * Support any TCL version from 8.5.0 to 9.x.x.
+     * The upper bound "10" is exclusive
      */
-    if (Tcl_InitStubs(interp, "8.5-", 0) == NULL) {
+    if (Tcl_InitStubs(interp, "8.5-10", 0) == NULL) {
 	return TCL_ERROR;
     }