From f7e80813769b5abaffc05e5ff6c71bb941f689ec Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 28 Jan 2002 18:18:31 +0000 Subject: cleanup perImageAppend code (hopefully handling nicely the mem=nopentium case) --- perl-install/install_steps.pm | 17 ++++++----------- 1 file changed, 6 insertions(+), 11 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index a344d852d..882a17d41 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -920,24 +920,19 @@ sub miscellaneousBefore { sub miscellaneous { my ($o) = @_; - local $_ = $o->{bootloader}{perImageAppend}; - - if (my @l = detect_devices::IDEburners() and !/ide-scsi/) { - $_ .= " " . join(" ", (map { "$_->{device}=ide-scsi" } @l), - #- in that case, also add ide-floppy otherwise ide-scsi will be used! - map { "$_->{device}=ide-floppy" } detect_devices::ide_zips()); + if (my @l = detect_devices::IDEburners()) { + add_append($o->{bootloader}, $_->{device}, 'ide-scsi') foreach @l; + #- in that case, also add ide-floppy otherwise ide-scsi will be used! + add_append($o->{bootloader}, $_->{device}, 'ide-floppy') foreach detect_devices::ide_zips(); } if ($o->{miscellaneous}{HDPARM}) { - $_ .= join('', map { " $_=autotune" } grep { /ide.*/ } all("/proc/ide")) if !/ide.=autotune/; + add_append($o->{bootloader}, $_, 'autotune') foreach grep { /ide.*/ } all("/proc/ide"); } if (grep { /Athlon|Duron/ } cat_("/proc/cpuinfo")) { - $_ .= " mem=nopentium"; + add_append($o->{bootloader}, 'mem', 'nopentium'); } #- keep some given parameters #-TODO - - log::l("perImageAppend: $_"); - $o->{bootloader}{perImageAppend} = $_; } #------------------------------------------------------------------------------ -- cgit v1.2.1