dereference array foreignarchs before iterating
This commit is contained in:
parent
cb44551009
commit
7948894159
1 changed files with 1 additions and 1 deletions
|
@ -624,7 +624,7 @@ sub setup {
|
|||
if (scalar @{$options->{foreignarchs}} > 0) {
|
||||
open my $fh, '>', "$options->{root}/var/lib/dpkg/arch" or die "cannot open /var/lib/dpkg/arch: $!";
|
||||
print $fh "$options->{nativearch}\n";
|
||||
foreach my $arch ($options->{foreignarchs}) {
|
||||
foreach my $arch (@{$options->{foreignarchs}}) {
|
||||
print $fh "$arch\n";
|
||||
}
|
||||
close $fh;
|
||||
|
|
Loading…
Reference in a new issue