swatch
Tips
ゾンビプロセスが増殖するので下記スクリプトを変更する
# diff -u /usr/share/perl5/vendor_perl/Swatch/Actions.pm{.org,} --- /usr/share/perl5/vendor_perl/Swatch/Actions.pm.org 2006-05-02 21:17:42.000000000 +0000 +++ /usr/share/perl5/vendor_perl/Swatch/Actions.pm 2018-03-20 07:22:12.353509371 +0000 @@ -94,22 +94,7 @@ and $args{'THRESHOLDING'} eq 'on' and not &Swatch::Threshold::threshold(%args)); - EXECFORK: { - if ($exec_pid = fork) { - waitpid(-1, WNOHANG); - return 0; - } elsif (defined $exec_pid) { - exec($command); - } elsif ($! =~ /No more processes/) { - # EAGAIN, supposedly recoverable fork error - sleep 5; - redo EXECFORK; - } else { - warn "$0: Can't fork to exec $command: $!\n"; - return 1; - } - } - return 0; + return not system $command; }