]> Sergey Matveev's repositories - public-inbox.git/blob - lib/PublicInbox/LeiLsWatch.pm
thread: avoid Perl5 internal scratchpad target cache
[public-inbox.git] / lib / PublicInbox / LeiLsWatch.pm
1 # Copyright all contributors <meta@public-inbox.org>
2 # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
3
4 package PublicInbox::LeiLsWatch;
5 use strict;
6 use v5.10.1;
7
8 sub lei_ls_watch {
9         my ($lei) = @_;
10         my $cfg = $lei->_lei_cfg or return;
11         my @w = (join("\n", keys %$cfg) =~ m/^watch\.(.+?)\.state$/sgm);
12         $lei->puts(join("\n", @w)) if @w;
13 }
14
15 1;