/usr/share/tcltk/tcllib1.18/try/throw.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 14 15 16 17 18 | # # ## ### ##### ######## ############# ####################
## -*- tcl -*-
## (C) 2015 Miguel Martínez López, BSD licensed.
# The code here is a forward-compatibility implementation of Tcl 8.6's
# throw command (TIP 329), for Tcl 8.5.
# # ## ### ##### ######## ############# ####################
package provide throw 1
package require Tcl 8.5
# Do nothing if the "throw" command exists already (8.6 and higher).
if {[llength [info commands throw]]} return
proc throw {code msg} {
return -code error -errorcode $code $msg
}
|