--- a/bin/maybe-notify-uploader Thu Apr 19 20:53:29 2012 +0200
+++ b/bin/maybe-notify-uploader Thu Apr 19 21:10:37 2012 +0200
@@ -4,9 +4,10 @@
use MIME::EncWords qw(encode_mimewords);
use POSIX qw(locale_h);
-my ($result, $codename, $source, $version, $changes) = @ARGV[0..4];
+my ($result, $codename, $source, $version, $changes) = @ARGV[ 0 .. 4 ];
-my ($pat, $fallback, $from) = qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de);
+my ($pat, $fallback, $from) =
+ qw(@schlittermann.de apt@apt.net.schlittermann.de apt@apt.net.schlittermann.de);
my $r;
open C, '<', "$changes" or die "Can't open '<', '$changes': $!\n";
@@ -20,8 +21,8 @@
my $mail = {
- To => $r,
- From => $from,
+ To => $r,
+ From => $from,
Subject => "$source $version $result in $codename"
};