| Subject: | timegm 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
| Subject: | fix.patch |
Index: Date-Business-1.2/Business.pm
===================================================================
--- Date-Business-1.2.orig/Business.pm
+++ Date-Business-1.2/Business.pm
@@ -93,7 +93,7 @@ sub image2value($;$) {
my($image) = @_;
$image =~ m/(....)(..)(..)/;
- return timegm(0, 0, 0, $3, ($2-1), $1 - 1900);
+ return timegm(0, 0, 0, $3, ($2-1), $1);
}
sub value($) {