From 903803a1f379951c68224f847ccdf717fcf2d36c Mon Sep 17 00:00:00 2001
From: Eelco Dolstra <eelco.dolstra@logicblox.com>
Date: Tue, 15 Dec 2015 10:10:59 +0000
Subject: [PATCH] Allow uploading multiple files

---
 maintainers/scripts/copy-tarballs.pl | 23 ++++++++++++++++-------
 1 file changed, 16 insertions(+), 7 deletions(-)

diff --git a/maintainers/scripts/copy-tarballs.pl b/maintainers/scripts/copy-tarballs.pl
index 6be1300e5130..ad626e4bd8d6 100755
--- a/maintainers/scripts/copy-tarballs.pl
+++ b/maintainers/scripts/copy-tarballs.pl
@@ -69,15 +69,24 @@ sub uploadFile {
     redirect "sha512/$sha512_32", $mainKey;
 }
 
-my $op = $ARGV[0] // "";
+my $op = shift @ARGV;
 
 if ($op eq "--file") {
-    my $fn = $ARGV[1] // die "$0: --file requires a file name\n";
-    if (alreadyMirrored("sha512", hashFile("sha512", 0, $fn))) {
-        print STDERR "$fn is already mirrored\n";
-    } else {
-        uploadFile($fn, basename $fn);
+    my $res = 0;
+    foreach my $fn (@ARGV) {
+	eval {
+	    if (alreadyMirrored("sha512", hashFile("sha512", 0, $fn))) {
+		print STDERR "$fn is already mirrored\n";
+	    } else {
+		uploadFile($fn, basename $fn);
+	    }
+	};
+	if ($@) {
+	    warn "$@\n";
+	    $res = 1;
+	}
     }
+    exit $res;
 }
 
 elsif ($op eq "--expr") {
@@ -138,5 +147,5 @@ elsif ($op eq "--expr") {
 }
 
 else {
-    die "Syntax: $0 --file FILENAME | --expr EXPR\n";
+    die "Syntax: $0 --file FILENAMES... | --expr EXPR\n";
 }