X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Flibhtml-calendarmonth-perl.git;a=blobdiff_plain;f=1.25%2Flib%2FHTML%2FCalendarMonth%2FDateTool%2FTimeLocal.pm;fp=1.25%2Flib%2FHTML%2FCalendarMonth%2FDateTool%2FTimeLocal.pm;h=0000000000000000000000000000000000000000;hp=e04321b71938749fa927a71f5a0aa12eb27338e0;hb=ed44be48bb467d82127717d1ae2d11890aaf329b;hpb=982e2bb08f00d800e2cd9fb65b108231719c8a65

diff --git a/1.25/lib/HTML/CalendarMonth/DateTool/TimeLocal.pm b/1.25/lib/HTML/CalendarMonth/DateTool/TimeLocal.pm
deleted file mode 100644
index e04321b..0000000
--- a/1.25/lib/HTML/CalendarMonth/DateTool/TimeLocal.pm
+++ /dev/null
@@ -1,39 +0,0 @@
-package HTML::CalendarMonth::DateTool::TimeLocal;
-BEGIN {
-  $HTML::CalendarMonth::DateTool::TimeLocal::VERSION = '1.25';
-}
-
-# Interface to Time::Local
-
-use strict;
-use warnings;
-use Carp;
-
-use base qw( HTML::CalendarMonth::DateTool );
-
-use Time::Local;
-
-sub dow1st_and_lastday {
-  my($self, $month, $year) = @_;
-  $month ||= $self->month;
-  $year  ||= $self->year;
-  # map month to 0-12
-  --$month;
-  # years since 1900...hooh-rah for POSIX...
-  $year -= 1900;
-  my $nmonth = $month + 1;
-  my $nyear  = $year;
-  if ($nmonth > 11) {
-    # Happy new year
-    $nmonth = 0;
-    ++$nyear;
-  }
-  # Leave dow of 1st in 0-based format
-  my $dow1st  = (gmtime(Time::Local::timegm(0,0,0,1,$month,$year)))[6];
-  # Last day is one day prior to 1st of month after
-  my $lastday = (gmtime(Time::Local::timegm(0,0,0,1,$nmonth,$nyear)
-                        - 60*60*24))[3];
-  ($dow1st, $lastday);
-}
-
-1;