From 8f5a440b8705732e2dd221cab769c1d796ba4338 Mon Sep 17 00:00:00 2001 From: Arnaud Patard Date: Mon, 30 Apr 2012 07:59:04 +0000 Subject: - packageByName: make sure to return the installed noarch rpm if any. --- perl-install/NEWS | 4 ++++ perl-install/install/pkgs.pm | 6 +++++- 2 files changed, 9 insertions(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/NEWS b/perl-install/NEWS index 6eb18394c..111be93dc 100644 --- a/perl-install/NEWS +++ b/perl-install/NEWS @@ -1,3 +1,7 @@ +- packageByName: Fix noarch handling/search on 64bit as they're in 32 and 64 bit + media and in some cases it may return the not-installed rpm while the other is. + (it was found by default.jpg/xorg.conf not being done by configureX step, even + with task-x11 installed) - fix rebooting on autoinstall by using a "wider" regexp (otherwise udevd was not found by fuzzy_pidofs) and gives some time to udevd process to disappear. Also, don't try to unmount /dev as it's still used by other processes. 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 = $_; } -- cgit v1.2.1