/usr/share/tcltk/tcllib1.18/try/pkgIndex.tcl is in tcllib 1.18-dfsg-3.
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 | #checker -scope global exclude warnUndefinedVar
# var in question is 'dir'.
if {![package vsatisfies [package provide Tcl] 8.5]} {
# PRAGMA: returnok
return
}
# The package below is a backward compatible implementation of
# try/catch/finally, for use by Tcl 8.5 only. On 8.6 it does nothing.
package ifneeded try 1 [list source [file join $dir try.tcl]]
# The package below is a backward compatible implementation of
# "throw", for use by Tcl 8.5 only. On 8.6 it does nothing.
package ifneeded throw 1 [list source [file join $dir throw.tcl]]
|