--- a/bin/rpi	Mon Feb 20 11:05:49 2012 +0100
+++ b/bin/rpi	Mon Feb 20 11:16:13 2012 +0100
@@ -19,7 +19,7 @@
 );
 
 GetOptions(
-    "l|run-lintian"     => \$opt{'run-lintian'},
+    "l|run-lintian!"     => \$opt{'run-lintian'},
     "h|help"            => sub { pod2usage(-exit => 0, -verbose => 1) },
     "m|man"             => sub {
         pod2usage(
@@ -117,7 +117,7 @@
 # we need to determine uploaders before running reprepro, because it will
 # remove the *.changes files before we are going to parse its output
 my $uploaders = { map { $_ => uploader($_) } glob("$i/*.changes") };
-for my $c (keys %{$uploaders}) { sendmails ({ $uploaders->{$c} => scalar qx{lintian $c 2>&1} }, $valid_receivers, $fallback, $hostname, "[$hostname] Lintian Report"); }
+if ($opt{'run-lintian'}) { for my $c (keys %{$uploaders}) { sendmails ({ $uploaders->{$c} => scalar qx{lintian $c 2>&1} }, $valid_receivers, $fallback, $hostname, "[$hostname] Lintian Report"); }};
 my $messages = run_command_and_parse_output([@cmd], $uploaders, $important, $unimportant, $log_uncaught, $log_raw);
 sendmails($messages, $valid_receivers, $fallback, $hostname, "[$hostname] Import Report");