about summary refs log tree commit homepage
path: root/lib
diff options
context:
space:
mode:
authorEric Wong <e@yhbt.net>2020-06-27 10:03:42 +0000
committerEric Wong <e@yhbt.net>2020-06-28 22:27:19 +0000
commit4c2d7dce2526d978e43021707ecb60a4bc277138 (patch)
tree877587528bf1116e7130ef307bd3a4f2e3d8d4c3 /lib
parent67592c40510dae8604580cf4b2a0a0f665b84501 (diff)
downloadpublic-inbox-4c2d7dce2526d978e43021707ecb60a4bc277138.tar.gz
This fixes cases where watch is handling both Maildirs and IMAP
connections.  While we're at it, close open directories in the
IMAP children to save FDs.
Diffstat (limited to 'lib')
-rw-r--r--lib/PublicInbox/WatchMaildir.pm11
1 files changed, 9 insertions, 2 deletions
diff --git a/lib/PublicInbox/WatchMaildir.pm b/lib/PublicInbox/WatchMaildir.pm
index 494fe7a8..24989130 100644
--- a/lib/PublicInbox/WatchMaildir.pm
+++ b/lib/PublicInbox/WatchMaildir.pm
@@ -465,11 +465,18 @@ sub watch_atfork_child ($) {
         my ($self) = @_;
         delete $self->{idle_pids};
         delete $self->{poll_pids};
+        delete $self->{opendirs};
         PublicInbox::DS->Reset;
         PublicInbox::Sigfd::sig_setmask($self->{oldset});
         %SIG = (%SIG, %{$self->{sig}});
 }
 
+sub watch_atfork_parent ($) {
+        my ($self) = @_;
+        _done_for_now($self);
+        $self->{mics} = {}; # going to be forking, so disconnect
+}
+
 sub imap_idle_reap { # PublicInbox::DS::dwaitpid callback
         my ($self, $pid) = @_;
         my $uri_intvl = delete $self->{idle_pids}->{$pid} or
@@ -501,7 +508,7 @@ sub event_step {
         return if $self->{quit};
         my $idle_todo = $self->{idle_todo};
         if ($idle_todo && @$idle_todo) {
-                $self->{mics} = {}; # going to be forking, so disconnect
+                watch_atfork_parent($self);
                 while (my $uri_intvl = shift(@$idle_todo)) {
                         imap_idle_fork($self, $uri_intvl);
                 }
@@ -525,7 +532,7 @@ sub watch_imap_fetch_all ($$) {
 sub imap_fetch_fork ($$$) {
         my ($self, $intvl, $uris) = @_;
         return if $self->{quit};
-        $self->{mics} = {}; # going to be forking, so disconnect
+        watch_atfork_parent($self);
         defined(my $pid = fork) or die "fork: $!";
         if ($pid == 0) {
                 watch_atfork_child($self);