diff options
author | Jonas Smedegaard <dr@jones.dk> | 2021-05-20 00:52:56 +0200 |
---|---|---|
committer | Jonas Smedegaard <dr@jones.dk> | 2024-08-27 23:39:36 +0200 |
commit | 11a760d64cbf5e87b5731cb87fa69632b47b70d9 (patch) | |
tree | 04eefa02faed58b4bb37429297b24b6fae95e3cf | |
parent | 487dcb5409b13014a5173f1cda3b3667c9929a2b (diff) |
tidy: rename internal variable calendar_event -> entry
-rwxr-xr-x | bin/events2md.pl | 8 |
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 |