We only enable {mic_cached} in WQ workers, and those
aren't expected to fork again going forward. So cache
here avoid a penalty for the non-augmenting (imap_delete_all)
call with "lei q"
my ($self, $uri) = @_;
my $sec = uri_section($uri);
# see if caller saved result of imap_common_init
- if (my $cached = $self->{mics_cached}) {
+ my $cached = $self->{mics_cached};
+ if ($cached) {
my $mic = $cached->{$sec};
return $mic if $mic && $mic->IsConnected;
delete $cached->{$sec};
}
}
my $mic = PublicInbox::IMAPClient->new(%$mic_arg);
- $mic && $mic->IsConnected ? $mic : undef;
+ $cached //= {}; # invalid placeholder if no cache enabled
+ $mic && $mic->IsConnected ? ($cached->{$sec} = $mic) : undef;
}
sub imap_each {