It looks like the structure of %EventKeys has changed from a hash to a hash of hashes at some point. The following changes have fixed the issue for me. Thanks for the module:
--- CalDAVTalk.pm_original 2018-01-25 21:53:02.859449390 +0000
+++ CalDAVTalk.pm 2018-01-25 22:09:03.088925130 +0000
@@ -1452,15 +1452,17 @@
my %NewEvent;
- foreach my $Property (keys %EventKeys) {
- if (exists $Args->{$Property}) {
- if (defined $Args->{$Property}) {
- $NewEvent{$Property} = $Args->{$Property};
+ foreach my $PropertyGroup (keys %EventKeys) {
+ foreach my $Property (keys %{ $EventKeys{$PropertyGroup} }) {
+ if (exists $Args->{$Property}) {
+ if (defined $Args->{$Property}) {
+ $NewEvent{$Property} = $Args->{$Property};
+ }
+ }
+ elsif (exists $OldEvent->{$Property}) {
+ $NewEvent{$Property} = $OldEvent->{$Property};
+ }
}
- }
- elsif (exists $OldEvent->{$Property}) {
- $NewEvent{$Property} = $OldEvent->{$Property};
- }
}
# calculate updated sequence numbers
On Tue, 23 Jan 2018, at 11:13 PM, Bugs in Net-CalDAVTalk via RT wrote:
Show quoted text>
> Greetings,
>
> This message has been automatically generated in response to the
> creation of a trouble ticket regarding:
> "uninitialized value $isoDate",
> a summary of which appears below.
>
> There is no need to reply to this message right now. Your ticket has been
> assigned an ID of [rt.cpan.org #124198]. Your ticket is accessible
> on the web at:
>
>
https://rt.cpan.org/Ticket/Display.html?id=124198
>
> Please include the string:
>
> [rt.cpan.org #124198]
>
> in the subject line of all future correspondence about this issue. To do so,
> you may reply to this message.
>
> Thank you,
> bug-Net-CalDAVTalk@rt.cpan.org
>
> -------------------------------------------------------------------------
> I'm trying to update an event in a calendar in fastmail. I am using
> version 0.12 of Net-CalDAVTAlk and perl v5.22.1on Linux.
>
> I can create an event using NewEvent() but if I try and amend an event I
> get an error and the event doesn't amend.
>
> my %test = (
> 'title' => "Goodbye",
> );
>
> my $Args = \%test;
>
> $foo->UpdateEvent($href, $Args);
>
> The error message is:
>
> Use of uninitialized value $isoDate in pattern match (m//) at /home/
> moray/perl5/lib/perl5/Net/CalDAVTalk.pm line 2304.
