diff options
| -rw-r--r-- | urpm/select.pm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/urpm/select.pm b/urpm/select.pm index 5f5632a1..b5292c95 100644 --- a/urpm/select.pm +++ b/urpm/select.pm @@ -7,13 +7,11 @@ use urpm::util; use urpm::sys; use URPM; -my $default_list = 'rpm,perl-URPM,perl-MDV-Distribconf,urpmi,meta-task,glibc'; +my $default_priority_list = 'rpm,perl-URPM,perl-MDV-Distribconf,urpmi,meta-task,glibc'; +my @priority_list = split(',', $default_priority_list); sub add_packages_to_priority_upgrade_list { - my (@packages) = @_; - @packages = grep { $default_list !~ /,$_\b/ } @packages; - return if !@packages; - $default_list .= join(',', '', @packages); + @priority_list = uniq(@priority_list, @_); } sub set_priority_upgrade_option { @@ -23,7 +21,7 @@ sub set_priority_upgrade_option { # comma-separated list of packages that should be installed first, # and that trigger an urpmi restart - my $list = $default_list; + my $list = join(',', @priority_list); if ($previous) { if ($previous eq $list) { $list = ''; |