for ( my $i=0; $i < @$a_deps; $i++ ) { # splitted by ,
$dep_pkgs{$a_deps_norm->[$i]} = $a_deps->[$i];
$arch_deps{$a}{$a_deps_norm->[$i]}++;
}
}
@architectures = sort keys %arch_deps;
for ( my $i=0; $i < @$a_deps; $i++ ) { # splitted by ,
$dep_pkgs{$a_deps_norm->[$i]} = $a_deps->[$i];
$arch_deps{$a}{$a_deps_norm->[$i]}++;
}
}
@architectures = sort keys %arch_deps;