From 561011fc421cda771daf637b082d87836dd06570 Mon Sep 17 00:00:00 2001
From: Don Armstrong <don@donarmstrong.com>
Date: Sat, 8 Dec 2007 16:09:14 -0800
Subject: [PATCH]  * Add a default_architectures configuration variable which
 sets the    set of default archectures.  * removal_architectures now inherits
 from default_architectures

---
 Debbugs/Config.pm | 18 ++++++++++++++++--
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index a07af20..92b6737 100644
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -383,6 +383,20 @@ my %_distributions_default;
 @_distributions_default{values %{$config{distribution_aliases}}} = values %{$config{distribution_aliases}};
 set_default(\%config,'distributions',[keys %_distributions_default]);
 
+
+=item default_architectures
+
+List of default architectures to use when architecture(s) are not
+specified
+
+Default: i386 amd64 arm ppc sparc alpha
+
+=cut
+
+set_default(\%config,'default_architectures',
+	    [qw(i386 amd64 arm ppc sparc alpha)]
+	   );
+
 =item removal_distribution_tags
 
 Tags which specifiy distributions to check
@@ -428,12 +442,12 @@ there is more than one architecture applicable. If the bug is in a
 package not in any of these architectures, the architecture actually
 checked is undefined.
 
-Default: qw(i386 amd64 arm ppc sparc alpha);
+Default: value of default_architectures
 
 =cut
 
 set_default(\%config,'removal_architectures',
-	    [qw(i386 amd64 arm ppc sparc alpha)]
+	    $config{default_architectures},
 	   );
 
 
-- 
2.39.2