tidy: rename internal variable calendar_event -> entry

1 files changed, 4 insertions, 4 deletions

diff --git a/bin/events2md.pl b/bin/events2md.pl
index 71111c3..2964867 100755
--- a/bin/events2md.pl
+++ b/bin/events2md.pl
@@ -170,11 +170,11 @@ for my $year ( map { $_->value }
 
 sub print_event
 {
-	my ( $calendar_event, $event, $path ) = @_;
+	my ( $entry, $event, $path ) = @_;
 
 	if ( $log->is_trace ) {
 		use DDP;
-		p $calendar_event;
+		p $entry;
 		p $event;
 	}
 	my $summary     = unescape( $event->{SUMMARY} );
@@ -192,8 +192,8 @@ sub print_event
 	$time_begin .= $event->{DTSTART}->strftime(' %e. %B kl. %k.%M');
 	my $time_end = $event->{DTEND}->strftime('%k.%M');
 	my %attachments;
-	if ( $calendar_event->property('attach') ) {
-		for ( @{ $calendar_event->property('attach') } ) {
+	if ( $entry->property('attach') ) {
+		for ( @{ $entry->property('attach') } ) {
 			my $uri = try { URI->new( $_->value ) }
 				or next;
 			$uri->authority and $uri->host