Net::IMAP::InterIMAP: don't print undefined cache values in debug messages.

diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index bad49da3e91b52276c5e282db1731aa4cd5dbf43..73f55e891bd2c43a328d9da4207303d11cee628e 100644 (file)
--- a/lib/Net/IMAP/InterIMAP.pm
+++ b/lib/Net/IMAP/InterIMAP.pm
@@ -1027,7 +1027,7 @@ sub set_cache($$%) {
     }
 
     $self->logger("Update last clean state for $mailbox: ".
-                 '('.join(' ', map {"$_ $cache->{$_}"} keys %$cache).')')
+                 '('.join(' ', map {"$_ $cache->{$_}"} grep {defined $cache->{$_}} keys %$cache).')')
         if $self->{debug};
 }