# HG changeset patch
# User Matthias Förste foerste@schlittermann.de
# Date 1329732973 -3600
# Node ID da128a0b985f680ab252334e25dd0b9e5de08bc2
# Parent  2b9fc0919b0f2c043b2198e912d0503c4a449ca8
make the lintian option actually work

diff -r 2b9fc0919b0f -r da128a0b985f bin/rpi
--- 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");