This file is indexed.

/usr/share/perl5/XMLTV/Capabilities.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
27
28
29
# Add a --capabilities argument to your program, eg
#
# use XMLTV::Version qw/baseline manualconfig/;
#

package XMLTV::Capabilities;

my $opt = '--capabilities';
sub import( $$ ) {
    die "usage: use $_[0] qw/<capabilities>/" 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;

    eval {
	print join "\n", @_[1..$#_];
        print "\n";
    };

    exit();
}

1;