From 1e438db0a3bba659e5c5e8aec5194ea3fc3233d9 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 22 Jan 2003 00:15:50 +0000 Subject: - remove createBootdisk step - add mkbootdisk option in setupBootloader__general() - move kernelVersion() from install_any to any --- perl-install/install_steps.pm | 17 ----------------- 1 file changed, 17 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 2a4c2d23e..27c57376b 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -764,23 +764,6 @@ sub addUser { install_any::disable_user_view($p) if @$users == (); } -#------------------------------------------------------------------------------ -sub createBootdisk($) { - my ($o) = @_; - my $dev = $o->{mkbootdisk} or return; - - my @l = detect_devices::floppies_dev(); - - $dev = shift @l || die N("No floppy drive available") - if $dev eq "1"; #- special case meaning autochoose - - return if $::testing; - - require bootloader; - bootloader::mkbootdisk(install_any::kernelVersion($o), $dev, $o->{bootloader}{perImageAppend}); - $o->{mkbootdisk} = $dev; -} - #------------------------------------------------------------------------------ sub readBootloaderConfigBeforeInstall { my ($o) = @_; -- cgit v1.2.1