#54 dovecot services perl error (Experimental keys on scalar is now forbidden)

[Reuben Farrelly]

Since updating to the latest -git (ef85d97ba7112659de9367e1ab2971cc634cfed9) I'm now seeing my dovecot log analysis no longer proceed.

The error as shown in the report is:

Experimental keys on scalar is now forbidden at /usr/share/logwatch/scripts/services/dovecot line 537.

The code at this point is:

if ( ( $Detail >= 10 ) and (keys %AuthTimedOut)) {
print "\n\nRequest timed out waiting for client to continue authentication:";
foreach my $User (sort(keys %AuthTimedOut)) {
print "\n User: $User (IPs: ";
print join(", ",sort(keys %{$AuthTimedOut{$User}}));
my $Total = 0;
foreach my $IP (keys $AuthTimedOut{$User}) { <<<--- HERE
$Total += $AuthTimedOut{$User}{$IP};
}
print ") $Total Time(s)";
}
}

Line 537 is marked as above.

This is with perl 5.24.0 (on Gentoo, x86_64).

[Bjorn]

Fixed in commit 7fabc9ab1389320abc3f75d1c9113b4fa0905ac9 along with two other instances of similar problem.

Thanks for reporting.