From e4fb0c6d7fbe0fc8f8659f0d39510aad4dc95999 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Jul 1999 14:58:15 +0000 Subject: *** empty log message *** --- perl-install/install_steps.pm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index ad993b590..779a3bbc4 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -46,6 +46,12 @@ sub doPartitionDisks($$) { my ($o, $hds) = @_; fsedit::auto_allocate($hds, $o->{default}->{partitions}); } +sub rebootNeeded($) { + my ($o) = @_; + log::l("Rebooting..."); + exit(0); +} + sub choosePartitionsToFormat($$) { my ($o, $fstab) = @_; @@ -58,10 +64,7 @@ sub choosePartitionsToFormat($$) { sub choosePackages($$$) { my ($o, $packages, $comps) = @_; - foreach ('Base', @{$o->{default}->{comps}}) { - $comps->{$_}->{selected} = 1; - foreach (@{$comps->{$_}->{packages}}) { $_->{selected} = 1; } - } + foreach (@{$o->{default}->{comps}}) { $comps->{$_}->{selected} = 1; } foreach (@{$o->{default}->{packages}}) { $packages->{$_}->{selected} = 1; } } -- cgit v1.2.1