diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-01-03 17:30:17 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-01-03 17:30:17 +0000 |
| commit | 9680a74c3cb9605cc8b5235fc7e82af5f48117e6 (patch) | |
| tree | 3fdd619690c8a7dae5a209867e18b90bb9156d1a /perl-install/install_any.pm | |
| parent | 530019effd566e71f900dde5cff3ee53c408b8a1 (diff) | |
| download | drakx-9680a74c3cb9605cc8b5235fc7e82af5f48117e6.tar drakx-9680a74c3cb9605cc8b5235fc7e82af5f48117e6.tar.gz drakx-9680a74c3cb9605cc8b5235fc7e82af5f48117e6.tar.bz2 drakx-9680a74c3cb9605cc8b5235fc7e82af5f48117e6.tar.xz drakx-9680a74c3cb9605cc8b5235fc7e82af5f48117e6.zip | |
no_comment
Diffstat (limited to 'perl-install/install_any.pm')
| -rw-r--r-- | perl-install/install_any.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 7d1e6563c..41007c735 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -138,7 +138,7 @@ sub setPackages($) { grep { !$o->{packages}{$_} && log::l("missing base package $_") } @{$o->{base}} and die "missing some base packages"; } else { - $_->{selected} = 0 foreach values %{$o->{packages}}; + pkgs::unselect_all($o->{packages}); } #- this will be done if necessary in the selectPackagesToUpgrade, @@ -414,7 +414,7 @@ sub g_auto_install(;$) { my @fields = qw(mntpoint type size); $o->{partitions} = [ map { my %l; @l{@fields} = @$_{@fields}; \%l } grep { $_->{mntpoint} } @{$::o->{fstab}} ]; - exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade manualFstab nomouseprobe crypto modem useSupermount); #- TODO modules bootloader + exists $::o->{$_} and $o->{$_} = $::o->{$_} foreach qw(lang autoSCSI authentication printer mouse wacom netc timezone superuser intf keyboard mkbootdisk base users installClass partitioning isUpgrade manualFstab nomouseprobe crypto modem useSupermount auto_probe_pci); #- TODO modules bootloader if (my $card = $::o->{X}{card}) { $o->{X}{card}{$_} = $card->{$_} foreach qw(default_depth); |