diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-09-02 21:36:57 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-09-02 21:36:57 (GMT) |
| commit | 19028a0d17ae987e42a91918abe8421e3030812b (patch) | |
| tree | 7d06332b52ff9d4645ae411863a63a055b3f1eb8 /library | |
| parent | 39efd5474116799b123d4082bca3a9c30c7b8b82 (diff) | |
| parent | 0364abb28794dfc51a043615b44ead2175bf91f4 (diff) | |
| download | tcl-19028a0d17ae987e42a91918abe8421e3030812b.zip tcl-19028a0d17ae987e42a91918abe8421e3030812b.tar.gz tcl-19028a0d17ae987e42a91918abe8421e3030812b.tar.bz2 | |
merge 8.5bug_0e4d88b650
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 ec680de..6cb09b6 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -211,7 +211,7 @@ proc auto_mkindex {dir args} { } auto_mkindex_parser::init - foreach file [glob -- {*}$args] { + foreach file [lsort [glob -- {*}$args]] { if {[catch {auto_mkindex_parser::mkindex $file} msg opts] == 0} { append index $msg } else { @@ -244,7 +244,7 @@ proc auto_mkindex_old {dir args} { if {[llength $args] == 0} { set args *.tcl } - foreach file [glob -- {*}$args] { + foreach file [lsort [glob -- {*}$args]] { set f "" set error [catch { set f [open $file] |