localtxt2ics: fix use offset-based timezone (name-based timezones unsupported by Data::Ical)

1 files changed, 4 insertions, 0 deletions

diff --git a/localtxt2ics b/localtxt2ics
index 6b154af..284775a 100755
--- a/localtxt2ics
+++ b/localtxt2ics
@@ -66,6 +66,8 @@ while (
 		minute    => $6 || '00',
 		time_zone => $tz,
 	);
+	# Data::ICal does not support named timezones
+	$dtstart->set_time_zone( $dtstart->offset() );
 	if ( defined($7) ) {
 		$dtend = DateTime->new(
 			year      => $3,
@@ -75,6 +77,8 @@ while (
 			minute    => $8 || '00',
 			time_zone => $tz,
 		);
+		# Data::ICal does not support named timezones
+		$dtend->set_time_zone( $dtend->offset() );
 	}
 	my $location    = $4;
 	my $summary     = $9;