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