/usr/share/perl5/Date/Manip.pm is in libdate-manip-perl 6.25-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 | package Date::Manip;
# Copyright (c) 2010-2011 Sullivan Beck. All rights reserved.
# This program is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
###########################################################################
###########################################################################
use warnings;
use strict;
use Exporter;
our $VERSION;
$VERSION='6.25';
our (@ISA,@EXPORT);
my $backend;
if ((exists $ENV{'DATE_MANIP'} && $ENV{'DATE_MANIP'} eq 'DM5') ||
(defined $Date::Manip::Backend && $Date::Manip::Backend eq 'DM5')) {
$backend = 'Date::Manip::DM5';
} elsif ($] >= 5.010) {
$backend = 'Date::Manip::DM6';
} else {
$backend = 'Date::Manip::DM5';
}
my $backend_exp = $backend . "::EXPORT";
eval "require $backend; $backend->import(); return 1;";
{
no strict 'refs';
@EXPORT = @{ $backend_exp };
}
unshift (@ISA, $backend);
1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: -2
# End:
|