diff options
Diffstat (limited to 'perl-install/install/pkgs.pm')
| -rw-r--r-- | perl-install/install/pkgs.pm | 19 |
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; + (); } } |