From 658fbd0e6c6857894272921b0ff72378fd8a3454 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 5 Nov 2002 20:32:18 +0000 Subject: basic uml_install support (thanks to Brian Murrell) --- perl-install/install2.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 46dd6efca..5e1c1d280 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -107,7 +107,7 @@ sub selectMouse { sub setupSCSI { my ($clicked, $ent_number, $auto) = @_; - if (!$::live && !$::g_auto_install && !$o->{blank} && !$::testing) { + if (!$::live && !$::g_auto_install && !$o->{blank} && !$::testing && !$::uml_install) { -s modules::cz_file() or die _("Can't access kernel modules corresponding to your kernel (file %s is missing), this generally means your boot floppy in not in sync with the Installation medium (please create a newer boot floppy)", modules::cz_file()); } @@ -283,7 +283,7 @@ sub createBootdisk { #------------------------------------------------------------------------------ sub setupBootloader { my ($clicked, $ent_number, $auto) = @_; - return if $::g_auto_install; + return if $::g_auto_install || $::uml_install; modules::write_conf($o->{prefix}); @@ -399,6 +399,7 @@ sub main { stdio => sub { $o->{interactive} = "stdio"}, corporate => sub { $::corporate = 1 }, kickstart => sub { $::auto_install = $v }, + uml_install => sub { $::uml_install = 1 }, auto_install => sub { $::auto_install = $v }, simple_themes => sub { $o->{simple_themes} = 1 }, useless_thing_accepted => sub { $o->{useless_thing_accepted} = 1 }, -- cgit v1.2.1