70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
|
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
|
+
-
+
+
|
# This loads everything needed for "clock scan" to work
# "clock scan" is used within "vfs::zip", which may be
# loaded before this is run causing the root VFS to break
catch { clock scan }
# Load these, the original Tclkit does so it should be safe.
foreach vfsfile [list vfsUtils vfslib] {
uplevel #0 [list source [file join $tcl_mountpoint lib vfs vfsUtils.tcl]]
uplevel #0 [list source [file join $tcl_mountpoint lib vfs ${vfsfile}.tcl]]
}
# Set a maximum seek to avoid reading the entire DLL looking for a
# zip header
catch {
package require vfs::zip
set ::zip::max_header_seek 8192
}
|