+
+ my $oldstable_tag = grep(/^woody$/, @tags);
+ my $stable_tag = grep(/^sarge$/, @tags);
+ my $testing_tag = grep(/^etch$/, @tags);
+ my $unstable_tag = grep(/^sid$/, @tags);
+ my $experimental_tag = grep(/^experimental$/, @tags);
+
+ # default according to dondelelcaro 2006-11-11
+ if (!$oldstable_tag && !$stable_tag && !$testing_tag && !$unstable_tag && !$experimental_tag) {
+ $testing_tag = 1;
+ $unstable_tag = 1;
+ $experimental_tag = 1;
+ }
+
+ # only bother to check the versioning status for the distributions indicated by the tags
+ $status_oldstable = getbugstatus($bug, undef, 'oldstable') if ($oldstable_tag);
+ $status_stable = getbugstatus($bug, undef, 'stable') if ($stable_tag);
+ $status_testing = getbugstatus($bug, undef, 'testing') if ($testing_tag);
+ $status_unstable = getbugstatus($bug, undef, 'unstable') if ($unstable_tag);
+ $status_experimental = getbugstatus($bug, undef, 'experimental') if ($experimental_tag);