diff options
| author | dgp@users.sourceforge.net <dgp> | 2012-01-27 18:44:48 (GMT) |
|---|---|---|
| committer | dgp@users.sourceforge.net <dgp> | 2012-01-27 18:44:48 (GMT) |
| commit | 053cb0f5441710c796513e50e0214a8a09423928 (patch) | |
| tree | 2ff963cbf186023800328c6fffd0975618c2ab42 | |
| parent | a480154b4b3fe20da90953df03b042a14b1722d2 (diff) | |
| parent | c2315cbac2d1fa880f5e7aa5970fbb59886835ef (diff) | |
| download | tcl-053cb0f5441710c796513e50e0214a8a09423928.zip tcl-053cb0f5441710c796513e50e0214a8a09423928.tar.gz tcl-053cb0f5441710c796513e50e0214a8a09423928.tar.bz2 | |
3480599 Make [source] and [load] order of multi-file package happen in sorted order of the file names.
| -rw-r--r-- | library/package.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/package.tcl b/library/package.tcl index 52801e6..c30431c 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -399,7 +399,7 @@ proc pkg_mkIndex {args} { break } lappend cmd ::tcl::Pkg::Create -name $name -version $version - foreach spec $files($pkg) { + foreach spec [lsort -index 0 $files($pkg)] { foreach {file type procs} $spec { if {$direct} { set procs {} |