diff options
| author | sebres <sebres@users.sourceforge.net> | 2025-02-10 12:57:25 (GMT) |
|---|---|---|
| committer | sebres <sebres@users.sourceforge.net> | 2025-02-10 12:57:25 (GMT) |
| commit | 082cb4aeb2e74428e0b0298f9796dab53f2f28a8 (patch) | |
| tree | e3d2a55474edc959506ad27f0a568ad7e62487da | |
| parent | 6a94bf652bc54d03924e178c2424dc91065a544a (diff) | |
| download | tcl-082cb4aeb2e74428e0b0298f9796dab53f2f28a8.zip tcl-082cb4aeb2e74428e0b0298f9796dab53f2f28a8.tar.gz tcl-082cb4aeb2e74428e0b0298f9796dab53f2f28a8.tar.bz2 | |
tcltest: avoid "couldn't read directory" error if no read permission on some child folder of "-testdir" parameter (GetMatchingDirectories will be invoked recursively, so nested glob would not fail with "permission denied")
| -rw-r--r-- | library/tcltest/tcltest.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/tcltest/tcltest.tcl b/library/tcltest/tcltest.tcl index 7dc75d7..c245394 100644 --- a/library/tcltest/tcltest.tcl +++ b/library/tcltest/tcltest.tcl @@ -2763,7 +2763,7 @@ proc tcltest::GetMatchingDirectories {rootdir} { foreach pattern [matchDirectories] { foreach path [glob -directory $rootdir -types d -nocomplain -- \ $pattern] { - if {$path ni $skipDirs} { + if {$path ni $skipDirs && [file readable $path]} { set matchDirs [concat $matchDirs [GetMatchingDirectories $path]] if {[file exists [file join $path all.tcl]]} { lappend matchDirs $path |