Merge 8.7 - Bug [0aaeb9c380]

tcltk · Sep 22, 2023 · a9bb920 · a9bb920
2 parents 67397bd + 92041e6
commit a9bb920
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl
@@ -2402,6 +2402,7 @@ proc tcltest::Skipped {name constraints} {
 	# make sure that the constraints are satisfied.
 
 	set doTest 0
+        set constraints [string trim $constraints]
 	if {[string match {*[$\[]*} $constraints] != 0} {
 	    # full expression, e.g. {$foo > [info tclversion]}
 	    catch {set doTest [uplevel #0 [list expr $constraints]]}