X-Git-Url: https://git.donarmstrong.com/?p=deb_pkgs%2Flibhtml-calendarmonth-perl.git;a=blobdiff_plain;f=lib%2FHTML%2FCalendarMonth%2FDateTool%2FCal.pm;h=2d63e006f77fadb7b886aaceb415440a5e00396e;hp=6542a42017a0b218982498275a8a1ea25436e287;hb=f3ef12e10123e46a0db95d820bb77f6e6d3225c7;hpb=50065656489ae7e83457ab2c12b6d174186339d7

diff --git a/lib/HTML/CalendarMonth/DateTool/Cal.pm b/lib/HTML/CalendarMonth/DateTool/Cal.pm
index 6542a42..2d63e00 100644
--- a/lib/HTML/CalendarMonth/DateTool/Cal.pm
+++ b/lib/HTML/CalendarMonth/DateTool/Cal.pm
@@ -1,23 +1,21 @@
 package HTML::CalendarMonth::DateTool::Cal;
+BEGIN {
+  $HTML::CalendarMonth::DateTool::Cal::VERSION = '1.25';
+}
 
 # Interface to unix 'cal' command
 
 use strict;
+use warnings;
 use Carp;
 
-use vars qw(@ISA $VERSION);
-
-@ISA = qw(HTML::CalendarMonth::DateTool);
-
-$VERSION = '0.01';
-
-use Time::Local;
+use base qw( HTML::CalendarMonth::DateTool );
 
 sub dow1st_and_lastday {
   my($self, $month, $year) = @_;
   $month ||= $self->month;
   $year  ||= $self->year;
-  my $cmd = $self->cal_cmd or croak "cal command not found\n";
+  my $cmd = $self->_cal_cmd or croak "cal command not found\n";
 
   my @cal = grep(!/^\s*$/,`$cmd $month $year`);
   chomp @cal;
@@ -27,11 +25,11 @@ sub dow1st_and_lastday {
   # With dow1st and lastday, one builds a calendar sequentially.
   # Historically, in particular Sep 1752, days have been skipped. Here's
   # the chance to catch that.
-  $self->skips(undef);
+  $self->_skips(undef);
   if ($month == 9 && $year == 1752) {
     my %skips;
     grep(++$skips{$_}, 3 .. 13);
-    $self->skips(\%skips);
+    $self->_skips(\%skips);
   }
   ($dow1st, $lastday);
 }