* Add removal_architectures config variable

diff --git a/Debbugs/Config.pm b/Debbugs/Config.pm
index 9105ba4d6c250b4969ea1b3cf2e0e2455b8b5a2e..70bb2d474cb2eac3b759b49b26004953d09f2bc0 100644 (file)
--- a/Debbugs/Config.pm
+++ b/Debbugs/Config.pm
@@ -53,7 +53,7 @@ BEGIN {
                                 qw($gSendmail $gLibPath $gSpamScan @gExcludeFromControl),
                                 qw(%gSeverityDisplay @gTags @gSeverityList @gStrongSeverities),
                                 qw(%gSearchEstraier),
-                                qw(@gPostProcessall),
+                                qw(@gPostProcessall @gRemovalDefaultDistributionTags @gRemovalDistributionTags @gRemovalArchitectures),
                                ],
                     text     => [qw($gBadEmailPrefix $gHTMLTail $gHTMLExpireNote),
                                 ],
@@ -348,6 +348,22 @@ set_default(\%config,'removal_default_distribution_tags',
            [qw(unstable testing)]
           );
 
+=item removal_architectures
+
+For removal/archival purposes, these architectures are consulted if
+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);
+
+=cut
+
+set_default(\%config,'removal_architectures',
+           [qw(i386 amd64 arm ppc sparc alpha)]
+          );
+
+
 =item package_name_re
 
 The regex which will match a package name