X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=scripts%2Fdebian%2Fupdate-ftpstats;h=ba3c25be2d884d39c841ac7fc64d52c205fef563;hb=dbc6fdfbb2358acac539fbed1416038fad8d22bc;hp=a7fda09eb58b3400d3acb3afa26e438963e03f5a;hpb=0873d6309f8352ffd4331ec373b10dc737b4dfb3;p=dak.git

diff --git a/scripts/debian/update-ftpstats b/scripts/debian/update-ftpstats
index a7fda09e..ba3c25be 100755
--- a/scripts/debian/update-ftpstats
+++ b/scripts/debian/update-ftpstats
@@ -7,13 +7,13 @@ use IO::Uncompress::AnyUncompress ":all";
 
 my %data;
 my %data2;
-my @archs = ("source", "all", "amd64", "i386", "alpha", "arm", "armel", "armhf", "hppa",
+my @archs = ("source", "all", "amd64", "arm64", "i386", "alpha", "arm", "armel", "armhf", "hppa",
              "hurd-i386", "ia64", "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390",
              "s390x", "sparc");
 
 for my $file (@ARGV) {
   my $FH = new IO::Uncompress::AnyUncompress $file, Transparent => 1
-    or die "Cannot open $file: $AnyUncompressError\n";
+    or warn "Cannot open $file: $AnyUncompressError\n";
   while (<$FH>) {
     if (/^(\d{8})\d{6}\|(?:k(?:atie|elly)|process-(?:accepted|upload))(?:\|dak)?\|installed\|[^|]+\|[^|]+\|(\d+)\|([-\w]+)$/) {
       if (not defined $data{$1}) {
@@ -27,7 +27,7 @@ for my $file (@ARGV) {
   }
 }
 
-foreach $p (sort keys %data) {
+foreach my $p (sort keys %data) {
   print "$p";
   foreach $a (@archs) {
     print ", $data{$p}{$a}";