- my %disttags = ();
- $disttags{'oldstable'} = grep(/^lenny$/, @tags);
- $disttags{'stable'} = grep(/^squeeze$/, @tags);
- $disttags{'testing'} = grep(/^wheezy$/, @tags);
- $disttags{'unstable'} = grep(/^sid$/, @tags);
+ my %disttags = ();
+ for my $release (qw(oldstable stable testing unstable)) {
+ $disttags{$release} = grep(/^$bugcfg::debian_releases->{$release}$/, @tags);
+ }