Sort directories visited by for_recursive_glob to make the results consistent on different file systems.

resuna · resuna · commit ff113e8266a1 · 2020-03-29T18:25:34.000Z
diff --git a/library/globrecur.tcl b/library/globrecur.tcl
@@ -76,7 +76,7 @@ proc for_recursive_glob {var dirlist globlist cmd {depth 1}} {
             return -code $code $result
         }
 
-        foreach file [readdir $dir] {
+        foreach file [lsort [readdir $dir]] {
             set file [file join $dir $file]
             if [file isdirectory $file] {
                 set fileTail [file tail $file]

Original file line number	Diff line number	Diff line change
`@@ -76,7 +76,7 @@ proc for_recursive_glob {var dirlist globlist cmd {depth 1}} {`
`76`	`76`	`return -code $code $result`
`77`	`77`	`}`
`78`	`78`
`79`		`- foreach file [readdir $dir] {`
	`79`	`+ foreach file [lsort [readdir $dir]] {`
`80`	`80`	`set file [file join $dir $file]`
`81`	`81`	`if [file isdirectory $file] {`
`82`	`82`	`set fileTail [file tail $file]`