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 | a29278e79c748bfaf8766c486eb93eca7ad586be (patch) | |
| tree | f34b823f88feefc09dbdfbe1aea555c580c30bad /library | |
| parent | ba092b7b1d40787c83c07c2b851ede96c1b0f6e5 (diff) | |
| parent | 214c9c44a4c822148d4815f89a7657b5354ab9d3 (diff) | |
| download | tcl-a29278e79c748bfaf8766c486eb93eca7ad586be.zip tcl-a29278e79c748bfaf8766c486eb93eca7ad586be.tar.gz tcl-a29278e79c748bfaf8766c486eb93eca7ad586be.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] |