From 794889415985f1c0ad8ae4aa26ae3231f39f9a95 Mon Sep 17 00:00:00 2001
From: Johannes 'josch' Schauer <josch@mister-muffin.de>
Date: Fri, 2 Nov 2018 17:24:28 +0100
Subject: [PATCH] dereference array foreignarchs before iterating

---
 mmdebstrap | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mmdebstrap b/mmdebstrap
index 823bf2b..8189612 100755
--- a/mmdebstrap
+++ b/mmdebstrap
@@ -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;