summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <thierry.vignaud@gmail.com>2014-01-19 23:28:01 +0100
committerThierry Vignaud <thierry.vignaud@gmail.com>2014-01-19 23:28:01 +0100
commitbee96c85712303c5b83a70263668abb69a8e11c9 (patch)
tree4e5b4a836598b1addc74bd99a6928af07cbe497d /perl-install/install
parentfa56661b702e1b9df927b562f9ee557c1135d744 (diff)
downloaddrakx-bee96c85712303c5b83a70263668abb69a8e11c9.tar
drakx-bee96c85712303c5b83a70263668abb69a8e11c9.tar.gz
drakx-bee96c85712303c5b83a70263668abb69a8e11c9.tar.bz2
drakx-bee96c85712303c5b83a70263668abb69a8e11c9.tar.xz
drakx-bee96c85712303c5b83a70263668abb69a8e11c9.zip
fix detecting if basesystem is installed (mga#10722)
thus fixing "basesystem package not selected" real cause might be some package flags not having been updated
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/install2.pm3
2 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 35199b2cb..415c90218 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- fix detecting if basesystem is installed (mga#10722)
+ thus fixing "basesystem package not selected"
+
Version 16.25 - 19 January 2014
- add Mageia 4 desktop images
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 661f3d4a8..13661efb1 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -200,7 +200,8 @@ sub choosePackages {
log::l("rpmsrate_flags_chosen's: ", join(' ', sort @flags));
#- check pre-condition that basesystem package must be selected.
- install::pkgs::packageByName($o->{packages}, 'basesystem')->flag_available or die "basesystem package not selected";
+ my $base_pkg = install::pkgs::packageByName($o->{packages}, 'basesystem');
+ $base_pkg->flag_available or $base_pkg->flag_installed or die "basesystem package not selected";
#- check if there are packages that need installation.
$o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && install::pkgs::packagesToInstall($o->{packages}) > 0;