diff options
author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 19:06:59 (GMT) |
---|---|---|
committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-09-25 19:06:59 (GMT) |
commit | 07cfd779b509862287b80d09eca791b2b8978498 (patch) | |
tree | 8d57921a21b40c5db45a1b7b95889076ea36eaeb | |
parent | 8357f5d53ce18bd125fab219fa6835976dd7e326 (diff) | |
parent | d3ec5a1fb59c1b5e51d4492e69d5205300e3f2e8 (diff) | |
download | tcl-07cfd779b509862287b80d09eca791b2b8978498.zip tcl-07cfd779b509862287b80d09eca791b2b8978498.tar.gz tcl-07cfd779b509862287b80d09eca791b2b8978498.tar.bz2 |
Merge 8.7
-rw-r--r-- | generic/tclObj.c | 2 | ||||
-rw-r--r-- | tests/fileSystem.test | 11 |
2 files changed, 7 insertions, 6 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index 8d3ddd5..6dcd733 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2154,7 +2154,7 @@ ParseBoolean( Tcl_Size i, length; const char *str = Tcl_GetStringFromObj(objPtr, &length); - if ((length == 0) || (length > 5)) { + if ((length <= 0) || (length > 5)) { /* * Longest valid boolean string rep. is "false". */ diff --git a/tests/fileSystem.test b/tests/fileSystem.test index 0e5042b..da3eb35 100644 --- a/tests/fileSystem.test +++ b/tests/fileSystem.test @@ -64,11 +64,12 @@ apply {{} { set dir [pwd] try { - foreach vol [file volumes] { - if {![catch {cd $vol}]} { - lappend drives $vol - } - } + set drives [lmap vol [file volumes] { + if {$vol eq [zipfs root] || [catch {cd $vol}]} { + continue + } + set vol + }] testConstraint moreThanOneDrive [expr {[llength $drives] > 1}] } finally { cd $dir |