summaryrefslogtreecommitdiffstats
path: root/perl-install/install/pkgs.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install/pkgs.pm')
-rw-r--r--perl-install/install/pkgs.pm19
1 files changed, 6 insertions, 13 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm
index d65fc7c0d..4381d3d91 100644
--- a/perl-install/install/pkgs.pm
+++ b/perl-install/install/pkgs.pm
@@ -179,9 +179,11 @@ sub packageRequest {
}
sub packageCallbackChoices {
- my ($urpm, $_db, $_state, $choices, $virtual_pkg_name) = @_;
-
- if (my @l = packageCallbackChoices_($urpm, $choices)) {
+ my ($urpm, $_db, $_state, $choices, $virtual_pkg_name, $prefered) = @_;
+
+ if ($prefered && @$prefered) {
+ @$prefered;
+ } elsif (my @l = packageCallbackChoices_($urpm, $choices)) {
@l;
} else {
log::l("packageCallbackChoices: default choice from " . join(",", map { $_->name } @$choices) . " for $virtual_pkg_name");
@@ -219,16 +221,7 @@ sub packageCallbackChoices_ {
@l;
} else {
- grep {
- #- or even if a package requires a specific locales which
- #- is already selected.
- find {
- /locales-/ && do {
- my $p = packageByName($urpm, $_);
- $p && $p->flag_available;
- };
- } $_->requires_nosense;
- } @$choices;
+ ();
}
}