my ($lei) = @_;
if (my $lne = delete $lei->{cfg}->{-lei_note_event}) {
$lne->wq_close(1, undef, $lei); # runs _lei_wq_eof;
- } else { # lms_clear_src calls only:
- my $wait = $lei->{sto}->ipc_do('done');
+ } elsif ($lei->{sto}) { # lms_clear_src calls only:
+ $lei->sto_done_request;
}
}
my $err = $lms->arg2folder($lei, [ $folder ]);
return if $err->{fail};
undef $lms;
- my $state = $cfg->get_1("watch.$folder", 'state') // 'pause';
+ my $state = $cfg->get_1("watch.$folder", 'state') // 'tag-rw';
return if $state eq 'pause';
$lei->ale; # prepare
$sto->write_prepare($lei);
sub _lei_wq_eof { # EOF callback for main lei daemon
my ($lei) = @_;
my $lne = delete $lei->{lne} or return $lei->fail;
- my $wait = $lei->{sto}->ipc_do('done');
+ $lei->sto_done_request;
$lne->wq_wait_old(\&lne_done_wait, $lei);
}