if ( my $pid = rsync_running_pid ) {
if ( kill 0, $pid ) {
warn "found rsync pid $pid\n";
+=for kill-rsync
kill 2, $pid;
while ( -e $pid_file ) {
warn "waiting for rsync to die...\n";
}
kill 0, $pid && die "can't kill it!";
+=cut
} else {
unlink $pid_file;
}