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) {
|
if (scalar @{$options->{foreignarchs}} > 0) {
|
||||||
open my $fh, '>', "$options->{root}/var/lib/dpkg/arch" or die "cannot open /var/lib/dpkg/arch: $!";
|
open my $fh, '>', "$options->{root}/var/lib/dpkg/arch" or die "cannot open /var/lib/dpkg/arch: $!";
|
||||||
print $fh "$options->{nativearch}\n";
|
print $fh "$options->{nativearch}\n";
|
||||||
foreach my $arch ($options->{foreignarchs}) {
|
foreach my $arch (@{$options->{foreignarchs}}) {
|
||||||
print $fh "$arch\n";
|
print $fh "$arch\n";
|
||||||
}
|
}
|
||||||
close $fh;
|
close $fh;
|
||||||
|
|
Loading…
Reference in a new issue