diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-08 08:42:38 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-09-08 08:42:38 (GMT) |
| commit | f9350ae5e07eadaf60aac2772b1198a08f210327 (patch) | |
| tree | ab86b677e431c45ca8295c1e9986bc78c3cb032c /library | |
| parent | 4f8d20cba26646028a0110f0cdb6549ba65e8e1d (diff) | |
| parent | 1245809b52cec711dfb790483fd30a997a28a37b (diff) | |
| download | tcl-f9350ae5e07eadaf60aac2772b1198a08f210327.zip tcl-f9350ae5e07eadaf60aac2772b1198a08f210327.tar.gz tcl-f9350ae5e07eadaf60aac2772b1198a08f210327.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library')
| -rw-r--r-- | library/auto.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/auto.tcl b/library/auto.tcl index 0bfd4f4..44e2c57 100644 --- a/library/auto.tcl +++ b/library/auto.tcl @@ -92,7 +92,7 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { break } set found 1 - zipfs mount $mountpoint $dllfile + zipfs mount $dllfile $mountpoint break } if {!$found} { @@ -118,7 +118,7 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { if {![file exists $archive]} { continue } - zipfs mount $mountpoint $archive + zipfs mount $archive $mountpoint if {[zipfs exists [file join $mountpoint ${basename}_library $initScript]]} { lappend dirs [file join $mountpoint ${basename}_library] set found 1 @@ -128,7 +128,7 @@ proc tcl_findLibrary {basename version patch initScript enVarName varName} { set found 1 break } else { - catch {zipfs unmount $archive} + catch {zipfs unmount $mountpoint} } } } |