diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-07-10 16:25:10 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-07-10 16:25:10 +0000 |
| commit | 1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1 (patch) | |
| tree | 73c2e8ca7870ef0bb99753a2b1cdf8b16eb7e211 /perl-install/install2.pm | |
| parent | 52372f1853308aa90b76d4b5cd880c595433fc1d (diff) | |
| download | drakx-1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1.tar drakx-1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1.tar.gz drakx-1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1.tar.bz2 drakx-1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1.tar.xz drakx-1a649e4bd1f0a76ec28fcb851b2f8fe2d6d967e1.zip | |
use perl-URPM instead of rpmtools.
Diffstat (limited to 'perl-install/install2.pm')
| -rw-r--r-- | perl-install/install2.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 0b5c58b92..c5f3cddde 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -207,7 +207,7 @@ sub choosePackages { log::l("compssUsersChoice's: ", join(" ", grep { $o->{compssUsersChoice}{$_} } keys %{$o->{compssUsersChoice}})); #- check pre-condition where base backage has to be selected. - pkgs::packageFlagSelected(pkgs::packageByName($o->{packages}, 'basesystem')) or die "basesystem package not selected"; + pkgs::packageByName($o->{packages}, 'basesystem')->flag_selected or die "basesystem package not selected"; #- check if there are package that need installation. $o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && pkgs::packagesToInstall($o->{packages}) > 0; @@ -307,7 +307,7 @@ sub configureX { modules::write_conf($o->{prefix}); require pkgs; - installStepsCall($o, $auto, 'configureX', $clicked) if pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'XFree86')) && !$o->{X}{disabled} || $clicked || $::testing; + installStepsCall($o, $auto, 'configureX', $clicked) if pkgs::packageByName($o->{packages}, 'XFree86')->flag_installed && !$o->{X}{disabled} || $clicked || $::testing; } #------------------------------------------------------------------------------ sub exitInstall { |