aboutsummaryrefslogtreecommitdiffstats
path: root/lib/Net
diff options
context:
space:
mode:
authorGuilhem Moulin <guilhem@fripost.org>2016-03-09 21:14:40 +0100
committerGuilhem Moulin <guilhem@fripost.org>2016-03-09 21:14:40 +0100
commitebacf74fdb3a507c6b0d865f4e9a8a6e59dbb10c (patch)
tree0504b9fc2b0ee66c1483033869895f89660724c8 /lib/Net
parent5c5f8134e5bbedf71a63e377d49c0962fe1ba1ad (diff)
Net::IMAP::InterIMAP: don't print undefined cache values in debug messages.
Diffstat (limited to 'lib/Net')
-rw-r--r--lib/Net/IMAP/InterIMAP.pm2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Net/IMAP/InterIMAP.pm b/lib/Net/IMAP/InterIMAP.pm
index bad49da..73f55e8 100644
--- 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};
}