This file is indexed.

/usr/share/perl5/XMLTV/Description.pm is in libxmltv-perl 0.5.70-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
21
22
23
24
25
26
# Add a --description argument to your program, eg
#
# use XMLTV::Description "Sweden (tv.swedb.se)";
#

package XMLTV::Description;

my $opt = '--description';
sub import( $$ ) {
    die "usage: use $_[0] \"Sweden (tv.swedb.se)" if @_ != 2;
    my $seen = 0;
    foreach (@ARGV) {
	# This doesn't handle abbreviations in the GNU style.
	last if $_ eq '--';
	if ($_ eq $opt) {
	    $seen++ && warn "seen '$opt' twice\n";
	}
    }
    return if not $seen;

    print $_[1] . "\n";

    exit();
}

1;