diff options
author | Arnaud Patard <rtp@mageia.org> | 2012-04-30 07:59:04 +0000 |
---|---|---|
committer | Arnaud Patard <rtp@mageia.org> | 2012-04-30 07:59:04 +0000 |
commit | f4c7967581075bdddd67127b1aa339d88cbc35a4 (patch) | |
tree | ed63636ee0304ee99ae054dad1d04fcc1bd358e0 /perl-install/install | |
parent | a242160f88947fa6d13c599fbbcaa803f3d35659 (diff) | |
download | drakx-backup-do-not-use-f4c7967581075bdddd67127b1aa339d88cbc35a4.tar drakx-backup-do-not-use-f4c7967581075bdddd67127b1aa339d88cbc35a4.tar.gz drakx-backup-do-not-use-f4c7967581075bdddd67127b1aa339d88cbc35a4.tar.bz2 drakx-backup-do-not-use-f4c7967581075bdddd67127b1aa339d88cbc35a4.tar.xz drakx-backup-do-not-use-f4c7967581075bdddd67127b1aa339d88cbc35a4.zip |
- packageByName: make sure to return the installed noarch rpm if any.
Diffstat (limited to 'perl-install/install')
-rw-r--r-- | perl-install/install/pkgs.pm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install/pkgs.pm b/perl-install/install/pkgs.pm index 9fd8b8f09..c4c1a7edc 100644 --- a/perl-install/install/pkgs.pm +++ b/perl-install/install/pkgs.pm @@ -123,7 +123,11 @@ sub packageByName { my $best; foreach (@l) { if ($best && $best != $_) { - $_->compare_pkg($best) > 0 and $best = $_; + if ($best->fullname eq $_->fullname) { + $best = $_ if $_->flag_installed; + } else { + $_->compare_pkg($best) > 0 and $best = $_; + } } else { $best = $_; } |