diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-07-18 12:58:27 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-07-18 12:58:27 (GMT) |
| commit | 6bcfd54d3a39a762a22fcdf4cd92f0bab6c36855 (patch) | |
| tree | f34b823f88feefc09dbdfbe1aea555c580c30bad /library | |
| parent | f553fe3b01d09f98c496b1fe348be93056bcc68c (diff) | |
| parent | b095f046e62b83f50dd41996e1f0c69a0264934d (diff) | |
| download | tcl-6bcfd54d3a39a762a22fcdf4cd92f0bab6c36855.zip tcl-6bcfd54d3a39a762a22fcdf4cd92f0bab6c36855.tar.gz tcl-6bcfd54d3a39a762a22fcdf4cd92f0bab6c36855.tar.bz2 | |
merge 8.6
Diffstat (limited to 'library')
| -rw-r--r-- | library/auto.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/auto.tcl b/library/auto.tcl index 97ea8af..a7a8979 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -203,7 +203,7 @@ proc auto_mkindex {dir args} { } auto_mkindex_parser::init - foreach file [glob -- {*}$args] { + foreach file [lsort [glob -- {*}$args]] { try { append index [auto_mkindex_parser::mkindex $file] } on error {msg opts} { @@ -236,7 +236,7 @@ proc auto_mkindex_old {dir args} { if {![llength $args]} { set args *.tcl } - foreach file [glob -- {*}$args] { + foreach file [lsort [glob -- {*}$args]] { set f "" set error [catch { set f [open $file] |