/usr/lib/tcltk/thread2.6.6/pkgIndex.tcl is in tclthread 1:2.6.6-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 | #
# Tcl package index file, version 1.1
#
if {[package vsatisfies [package provide Tcl] 8.4]} {
package ifneeded Thread 2.6.6 [list thread_load $dir]
package ifneeded Ttrace 2.6.6 [list thread_source $dir]
proc thread_load {dir} {
load [file join $dir libthread2.6.6.so]
rename thread_load {}
}
proc thread_source {dir} {
if {[info exists ::env(TCL_THREAD_LIBRARY)] &&
[file readable $::env(TCL_THREAD_LIBRARY)/ttrace.tcl]} {
source $::env(TCL_THREAD_LIBRARY)/ttrace.tcl
} elseif {[file readable [file join $dir .. lib ttrace.tcl]]} {
source [file join $dir .. lib ttrace.tcl]
} elseif {[file readable [file join $dir ttrace.tcl]]} {
source [file join $dir ttrace.tcl]
}
if {[info commands ttrace::update] ne ""} {
ttrace::update
}
rename thread_source {}
}
}
|