From 65c4eebed3b999b42ff5c16f913e7ba493e750c7 Mon Sep 17 00:00:00 2001
From: Yukari Chiba <i@0x7f.cc>
Date: Wed, 4 Sep 2024 09:02:00 +0800
Subject: [PATCH] add exclarch support

---
 Build/Arch.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Build/Arch.pm b/Build/Arch.pm
index 41dca0a23..92bfc9251 100644
--- a/Build/Arch.pm
+++ b/Build/Arch.pm
@@ -159,6 +159,13 @@ sub parse {
     my @assets = get_assets(\%vars, $asuf);
     push @{$ret->{'remoteassets'}}, @assets if @assets;
   }
+  my @exclarch;
+  push @exclarch, @{$vars{'arch'}};
+  @exclarch = grep {$_ ne "any"} @exclarch;
+  # unify
+  my %exclarch = map {$_ => 1} @exclarch;
+  @exclarch = sort keys %exclarch;
+  $ret->{'exclarch'} = \@exclarch if @exclarch;
   return $ret;
 }