# HG changeset patch
# User Heiko Schlittermann (JUMPER) <hs@schlittermann.de>
# Date 1389457556 -3600
# Node ID aafd8332d7a6e417348d2a59a7f3a6205907a18f
# Parent  71a0c4bd43b1fe8b394d771508399bdc67ef772b# Parent  52faa36ba7f8840d2007799ca305b5e774889118
[merged]

diff -r 52faa36ba7f8 -r aafd8332d7a6 check
--- a/check	Sat Jan 11 17:20:05 2014 +0100
+++ b/check	Sat Jan 11 17:25:56 2014 +0100
@@ -36,21 +36,25 @@
 
 exit main @ARGV;
 
-
 #----
 
 sub main {
+    my @opt_ignore;
     my $opt_verbose = 0;
 
     GetOptions(
-        'h|help' => sub { pod2usage(-verbose => 1, -exit => 0) },
-        'm|man'  => sub { pod2usage(-verbose => 2, -exit => 0) },
-        'v|verbose' => \$opt_verbose,
+        'i|ignore=s@' => \@opt_ignore,
+        'h|help'      => sub { pod2usage(-verbose => 1, -exit => 0) },
+        'm|man'       => sub { pod2usage(-verbose => 2, -exit => 0) },
+        'v|verbose'   => \$opt_verbose,
     ) or pod2usage;
 
-    if ($opt_verbose) { *::verbose = sub { say '# ', @_ } }
-    else { *::verbose = sub { } }
-
+    if ($opt_verbose) {
+        *::verbose = sub { say '# ', @_ }
+    }
+    else {
+        *::verbose = sub { }
+    }
 
     # test needs to be run as root:* or as backup:backup
     my $USER  = 'backup';
@@ -76,7 +80,7 @@
     eval { amchecks @confs } or critical $@;
 
     my @dles = eval { amlists @confs } or critical $@;
-    ok 'config: ' .join(', ', @confs), @dles;
+    ok 'config: ' . join(', ', @confs), @dles;
 
     # never reached
     return 0;
@@ -255,6 +259,10 @@
 
 =over
 
+=item B<-i>|B<--ignore> I<filesystem>
+
+The name of a filesystem to be ignored.
+
 =item B<-h>|B<--help>
 
 Show a short description and help text.