This file is indexed.

/usr/lib/tcltk/rivet2.3/rivet-tcl/lempty.tcl is in libapache2-mod-rivet 2.3.3-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
###
## lempty <list>
##
##    Returns 1 if <list> is empty or 0 if it has any elements.  This command
##    emulates the TclX lempty command.
##
## $Id: lempty.tcl 1300262 2012-03-13 18:05:13Z mxmanghi $
##
###

namespace eval ::rivet {

    proc lempty {list} {
        if {[catch {llength $list} len]} { return 0 }
        return [expr {$len == 0}]
    }

}