This file is indexed.

/usr/share/perl5/Module/Install/Msgfmt.pm is in liblocale-msgfmt-perl 0.15-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
30
31
32
33
34
35
36
37
38
package Module::Install::Msgfmt;

use 5.008005;
use strict;
use warnings;
use File::Spec            ();
use Module::Install::Base ();

our $VERSION = '0.15';
our @ISA     = 'Module::Install::Base';

sub install_share_with_mofiles {
	my $self      = shift;
	my @orig      = (@_);
	my $class     = ref($self);
	my $prefix    = $self->_top->{prefix};
	my $name      = $self->_top->{name};
	my $dir       = @_ ? pop   : 'share';
	my $type      = @_ ? shift : 'dist';
	my $module    = @_ ? shift : '';
	$self->build_requires( 'Locale::Msgfmt' => '0.15' );
	$self->install_share(@orig);
	my $distname = "";
	if ( $type eq 'dist' ) {
		$distname = $self->name;
	} else {
		$distname = Module::Install::_CLASS($module);
		$distname =~ s/::/-/g;
	}
	my $path = File::Spec->catfile( 'auto', 'share', $type, $distname );
	$self->postamble(<<"END_MAKEFILE");
config ::
\t\$(NOECHO) \$(PERL) "-MLocale::Msgfmt" -e "Locale::Msgfmt::do_msgfmt_for_module_install(q(\$(INST_LIB)), q($path))"

END_MAKEFILE
}

1;