From c62d098be3cad9a093cc2e80798adaddcadda7e2 Mon Sep 17 00:00:00 2001 From: dgp Date: Fri, 27 Jan 2012 18:39:05 +0000 Subject: 3480599 Make [source] and [load] order of multi-file package happen in sorted order of the file names. --- library/package.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/library/package.tcl b/library/package.tcl index dc06641..3831822 100644 --- a/library/package.tcl +++ b/library/package.tcl @@ -393,7 +393,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 {} -- cgit v0.12