| 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: CAM-PDF-1.60/bin/pdfinfo.pl
===================================================================
--- CAM-PDF-1.60.orig/bin/pdfinfo.pl
+++ CAM-PDF-1.60/bin/pdfinfo.pl
@@ -88,7 +88,7 @@ while (@ARGV > 0)
$sign = q{+};
}
require Time::Local;
- my $timegm = Time::Local::timegm($s,$m,$h,$D,$M-1,$Y-1900);
+ my $timegm = Time::Local::timegm($s,$m,$h,$D,$M-1,$Y);
my $tzshift = $sign . ($tzh*3600 + $tzm*60);
$timegm += $tzshift;
$val = localtime $timegm;