FM / Date

/usr/local/share/perl5/Date

Name	Size	Mode	Actions
Calc/	-	0755	rm
Calendar/	-	0755	rm
Language/	-	0755	rm
Manip/	-	0755	rm
Calc.pm	2135	0444	edit dl rm
Calc.pod	109424	0444	edit dl rm
Calendar.pm	6519	0444	edit dl rm
Calendar.pod	20918	0444	edit dl rm
Format.pm	9648	0444	edit dl rm
Language.pm	2658	0444	edit dl rm
Manip.pm	1247	0444	edit dl rm
Manip.pod	7771	0444	edit dl rm
Parse.pm	8940	0444	edit dl rm

Edit: /usr/local/share/perl5/Date/Manip.pm (1247B)

package Date::Manip;
# Copyright (c) 2010-2018 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.72';

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

my $flag = eval "require $backend; $backend->import(); return 'loaded';";
if (! $flag) {
   die "ERROR LOADING MODULE: $backend";
}

{
   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: 0
# End:

package Date::Manip; # Copyright (c) 2010-2018 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.72'; 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"; my $flag = eval "require $backend; $backend->import(); return 'loaded';"; if (! $flag) { die "ERROR LOADING MODULE: $backend"; } { 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: 0 # End: