This file is indexed.

/usr/share/perl5/DBIx/FullTextSearch/File.pm is in libdbix-fulltextsearch-perl 0.73-10.

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
package DBIx::FullTextSearch::File;
use DBIx::FullTextSearch::String;
use strict;
use vars qw! @ISA !;
@ISA = qw! DBIx::FullTextSearch::String !;

sub index_document {
	my ($self, $file, $extra_data) = @_;
	my $dbh = $self->{'dbh'};

	open FILE, $file or do {
		$self->{'errstr'} = "Reading the file `$file' failed: $!";
		return;
	};
	my $data;
	{
		local $/ = undef;
		$data = <FILE>;
	}
	$data .= " $extra_data" if $extra_data;
	close FILE;
	$self->SUPER::index_document($file, $data);
}

1;