#!/usr/bin/perl -w
-# Copyright (C) 2016-2018 all contributors <meta@public-inbox.org>
+# Copyright (C) 2016-2020 all contributors <meta@public-inbox.org>
# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
use strict;
use warnings;
$watch_md->quit if $watch_md;
$watch_md = undef;
};
- alarm(1);
+ # --no-scan is only intended for testing atm, undocumented.
+ alarm(1) unless (grep(/\A--no-scan\z/, @ARGV));
$watch_md->watch while ($watch_md);
}