| 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 (not tested)
| Subject: | fix.patch |
Index: Date-ICal-2.678/lib/Date/ICal.pm
===================================================================
--- Date-ICal-2.678.orig/lib/Date/ICal.pm
+++ Date-ICal-2.678/lib/Date/ICal.pm
@@ -334,7 +334,7 @@ sub epoch {
$epoch =
timegm( $self->sec, $self->min, $self->hour, $self->day,
- ( $self->month ) - 1, ( $self->year ) - 1900 );
+ ( $self->month ) - 1, $self->year);
}
return $epoch;