lib/PublicInbox/Xapcmd.pm | 11 +++++++++-- diff --git a/lib/PublicInbox/Xapcmd.pm b/lib/PublicInbox/Xapcmd.pm index a294d539d292e564ef7d9733da90fe80430c2343..999819c74b6ccb52eac4de475b2a74a318efad89 100644 --- a/lib/PublicInbox/Xapcmd.pm +++ b/lib/PublicInbox/Xapcmd.pm @@ -22,6 +22,8 @@ my $reindex = $opt->{reindex}; my $im = $ibx->importer(0); $im->lock_acquire if !$opt->{-coarse_lock}; + $SIG{INT} or die 'BUG: $SIG{INT} not handled'; + while (my ($old, $new) = each %$tmp) { my @st = stat($old) or die "failed to stat($old): $!\n"; @@ -346,7 +348,12 @@ sub done { my ($self) = @_; delete $owner{"$self"}; - $SIG{INT} = $SIG{HUP} = $SIG{PIPE} = $SIG{TERM} = 'DEFAULT'; + + my %known_pids; + $known_pids{$_}++ foreach values %owner; + if (!$known_pids{$$}) { + $SIG{INT} = $SIG{HUP} = $SIG{PIPE} = $SIG{TERM} = 'DEFAULT'; + } %$self = (); } @@ -357,7 +364,7 @@ return if $owner_pid != $$; foreach my $new (values %$self) { remove_tree($new) unless -d "$new/old"; } - $SIG{INT} = $SIG{HUP} = $SIG{PIPE} = $SIG{TERM} = 'DEFAULT'; + done($self); } 1;