+ $SIG{QUIT} = $SIG{TERM} = $SIG{INT} = sub {
+ $watch_md->quit if $watch_md;
+ $watch_md = undef;
+ };
+ # --no-scan is only intended for testing atm, undocumented.
+ alarm(1) unless (grep(/\A--no-scan\z/, @ARGV));
+ $watch_md->watch while ($watch_md);