my %data;
my %data2;
-my @archs = ("source", "all", "amd64", "i386", "alpha", "arm", "armel", "armhf", "hppa",
- "hurd-i386", "ia64", "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc", "s390",
- "s390x", "sparc");
+my @archs = ("source", "all", "amd64", "arm64", "i386", "alpha", "arm", "armel", "armhf", "hppa",
+ "hurd-i386", "ia64", "kfreebsd-amd64", "kfreebsd-i386", "mips", "mipsel", "powerpc",
+ "ppc64el", "s390", "s390x", "sparc");
for my $file (@ARGV) {
my $FH = new IO::Uncompress::AnyUncompress $file, Transparent => 1
}
}
-foreach $p (sort keys %data) {
+foreach my $p (sort keys %data) {
print "$p";
foreach $a (@archs) {
print ", $data{$p}{$a}";