/usr/share/perl5/Locale/Msgfmt/Utils.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 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 | package Locale::Msgfmt::Utils;
use 5.008005;
use strict;
use warnings;
our $VERSION = '0.15';
sub character {
return map { pack "N*", $_ } @_;
}
sub _from_character {
return map { ord($_) } @_;
}
sub from_character {
return character( _from_character(@_) );
}
sub _from_hex {
return map { hex($_) } @_;
}
sub from_hex {
return character( _from_hex(@_) );
}
sub _from_string {
return split //, join '', @_;
}
sub from_string {
return join_string( from_character( _from_string(@_) ) );
}
sub join_string {
return join '', @_;
}
sub number_to_s {
return sprintf "%d", shift;
}
sub null_terminate {
return pack "Z*", shift;
}
sub null {
return null_terminate("");
}
sub eot {
return chr(4);
}
sub mtime {
return @{ [ stat(shift) ] }[9];
}
1;
__END__
=pod
=head1 NAME
Locale::Msgfmt::Utils - Functions used internally by Locale::Msgfmt
=head1 SYNOPSIS
This module shouldn't be used by other software.
=head1 SEE ALSO
L<Locale::Msgfmt>
=cut
|