/usr/lib/tcltk/rivet2.3/rivet-tcl/try.tcl is in libapache2-mod-rivet 2.3.5-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 | # -- try.tcl
#
# Wrapper of the core [try] command
#
# $Id: try.tcl 1769855 2016-11-15 16:43:16Z mxmanghi $
#
namespace eval ::rivet {
proc try {script args} {
uplevel [list ::try $script trap {RIVET ABORTPAGE} {} {
return -errorcode {RIVET ABORTPAGE} -code error
} trap {RIVET THREAD_EXIT} {} {
return -errorcode {RIVET THREAD_EXIT} -code error
} {*}$args]
}
}
|