/usr/share/tcltk/tcllib1.18/control/no-op.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 | # no-op.tcl --
#
# The [no-op] command of the package "control".
# It accepts any number of arguments and does nothing.
# It returns an empty string.
#
# RCS: @(#) $Id: no-op.tcl,v 1.2 2004/01/15 06:36:12 andreas_kupries Exp $
namespace eval ::control {
proc no-op args {}
}
|