| Subject: | timelocal should be called with 4-digit year |
man Time::Local says
Whenever possible, use an absolute four digit year instead.
With a detailed explanation about ambiguity of 2-digit years above that.
Please review/test/merge the attached patch (not tested)
| Subject: | fix.patch |
Index: Business-Hours-0.12/lib/Business/Hours.pm
===================================================================
--- Business-Hours-0.12.orig/lib/Business/Hours.pm
+++ Business-Hours-0.12/lib/Business/Hours.pm
@@ -273,7 +273,7 @@ sub for_timespan {
# began.
my @start = localtime( $args{'Start'} );
my $month = $start[4];
- my $year = $start[5];
+ my $year = $start[5] + 1900;
my $first_sunday = $start[3] - $start[6];
# period_start is time_t at midnight local time on the first sunday