/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;
|