|
|
|
@ -2722,13 +2722,18 @@ sub run_install() {
|
|
|
|
|
any { $_ eq $options->{variant} }
|
|
|
|
|
('required', 'important', 'standard', 'buildd')
|
|
|
|
|
) {
|
|
|
|
|
# Many of the priority:required packages are also essential:yes. We
|
|
|
|
|
# make sure not to select those here to avoid useless "xxx is already
|
|
|
|
|
# the newest version" messages.
|
|
|
|
|
my $priority;
|
|
|
|
|
if (any { $_ eq $options->{variant} } ('required', 'buildd')) {
|
|
|
|
|
$priority = '?priority(required)';
|
|
|
|
|
$priority = '?and(?priority(required),?not(?essential))';
|
|
|
|
|
} elsif ($options->{variant} eq 'important') {
|
|
|
|
|
$priority = '?or(?priority(required),?priority(important))';
|
|
|
|
|
$priority = '?and(?or(?priority(required),?priority(important)),'
|
|
|
|
|
. '?not(?essential))';
|
|
|
|
|
} elsif ($options->{variant} eq 'standard') {
|
|
|
|
|
$priority = '?or(~prequired,~pimportant,~pstandard)';
|
|
|
|
|
$priority = '?and(?or(~prequired,~pimportant,~pstandard),'
|
|
|
|
|
. '?not(?essential))';
|
|
|
|
|
}
|
|
|
|
|
$pkgs_to_install{
|
|
|
|
|
"?narrow("
|
|
|
|
|