Attachment 3838 Details for Bug 9611 – 1) check if basesystem is already installed

[patch] 1) check if basesystem is already installed

9611-a.diff (text/plain), 873 bytes, created by Thierry Vignaud on 2013-04-28 12:59:05 CEST

(hide)

Description:

Filename:

MIME Type:

Creator: Thierry Vignaud

Created: 2013-04-28 12:59:05 CEST

Size: 873 bytes

patch

obsolete

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index d9b80db..52c989a 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;

Actions: View | Diff

Attachments on bug 9611: 3835 | 3838 | 3839 | 3840 | 3841