bin/maybe-notify-uploader
branchrsync
changeset 42 73cb1d7a1bd8
parent 38 81214d8c7c1e
--- 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"
 
 };