Tcl Source Code

Check-in [1da688ab14]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:3480599 Make [source] and [load] order of multi-file package happen in sorted order of the file names.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | bug-3480599
Files: files | file ages | folders
SHA1: 1da688ab143d786a41d6c1fcc42d4d04ad521aad
User & Date: dgp 2012-01-27 18:39:05
Context
2012-01-27
18:44
3480599 Make [source] and [load] order of multi-file package happen in sorted order of the file name... check-in: 38d06f3dba user: dgp tags: core-8-5-branch
18:39
3480599 Make [source] and [load] order of multi-file package happen in sorted order of the file name... Closed-Leaf check-in: 1da688ab14 user: dgp tags: bug-3480599
2012-01-26
16:42
3479689 Stop memory corruption when shimmering 0-refCount value to "path" type. check-in: a38a27a364 user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/package.tcl.

389
390
391
392
393
394
395
396
397
398
399
400
401
402
403

    foreach pkg [lsort [array names files]] {
	set cmd {}
	foreach {name version} $pkg {
	    break
	}
	lappend cmd ::tcl::Pkg::Create -name $name -version $version
	foreach spec $files($pkg) {
	    foreach {file type procs} $spec {
		if { $direct } {
		    set procs {}
		}
		lappend cmd "-$type" [list $file $procs]
	    }
	}







|







389
390
391
392
393
394
395
396
397
398
399
400
401
402
403

    foreach pkg [lsort [array names files]] {
	set cmd {}
	foreach {name version} $pkg {
	    break
	}
	lappend cmd ::tcl::Pkg::Create -name $name -version $version
	foreach spec [lsort -index 0 $files($pkg)] {
	    foreach {file type procs} $spec {
		if { $direct } {
		    set procs {}
		}
		lappend cmd "-$type" [list $file $procs]
	    }
	}