summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-05-03 09:54:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-05-03 09:54:05 +0000
commit398eb0953c8d865ea1c76ce76aa26eb1fe4d3a4e (patch)
tree39b997e34a55d8218030ba3b5bf640246afd3d69 /perl-install
parent7e97be4647322b29d7218bac9b078a0d6b294afd (diff)
downloaddrakx-backup-do-not-use-398eb0953c8d865ea1c76ce76aa26eb1fe4d3a4e.tar
drakx-backup-do-not-use-398eb0953c8d865ea1c76ce76aa26eb1fe4d3a4e.tar.gz
drakx-backup-do-not-use-398eb0953c8d865ea1c76ce76aa26eb1fe4d3a4e.tar.bz2
drakx-backup-do-not-use-398eb0953c8d865ea1c76ce76aa26eb1fe4d3a4e.tar.xz
drakx-backup-do-not-use-398eb0953c8d865ea1c76ce76aa26eb1fe4d3a4e.zip
blank.img has been removed, so remove special code handling it
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm3
-rw-r--r--perl-install/install_steps.pm24
-rw-r--r--perl-install/install_steps_interactive.pm6
-rw-r--r--perl-install/modules.pm2
4 files changed, 5 insertions, 30 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 1850cd5d9..8e654cb76 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -114,7 +114,7 @@ sub selectMouse {
sub setupSCSI {
my ($clicked, $_ent_number, $auto) = @_;
- if (!$o->{blank} && !$::testing && !$::uml_install) {
+ if (!$::testing && !$::uml_install) {
-d '/lib/modules/' . c::kernel_version() ||
-s modules::cz_file() or die N("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());
}
@@ -409,7 +409,6 @@ sub main {
alawindows => sub { $o->{security} = 0; $o->{partitioning}{clearall} = 1; $o->{bootloader}{crushMbr} = 1 },
fdisk => sub { $o->{partitioning}{fdisk} = 1 },
nomouseprobe => sub { $o->{nomouseprobe} = $v },
- blank => sub { $o->{blank} = $::blank = 1 },
updatemodules => sub { $o->{updatemodules} = 1 },
move => sub { $::move = 1 },
}}{lc $n}; &$f if $f;
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 70cec9202..24f498b27 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -528,30 +528,12 @@ GridHeight=70
#- call update-menus at the end of package installation
push @{$o->{waitpids}}, run_program::raw({ root => $o->{prefix}, detach => 1 }, "update-menus", "-n");
- if ($o->{blank} || $o->{updatemodules}) {
- my @l = detect_devices::floppies_dev();
-
- foreach (qw(blank updatemodules)) {
- $o->{$_} eq "1" and $o->{$_} = $l[0] || die N("No floppy drive available");
- }
-
- $o->{blank} and $o->copyKernelFromFloppy;
- $o->{updatemodules} and $o->updateModulesFromFloppy;
+ if ($o->{updatemodules}) {
+ $o->{updatemodules} = detect_devices::floppy() or die N("No floppy drive available");
+ $o->updateModulesFromFloppy;
}
}
-sub copyKernelFromFloppy {
- my ($o) = @_;
- return if $::testing || !$o->{blank};
-
- fs::mount($o->{blank}, "/floppy", "vfat", 0);
- eval { cp_af("/floppy/vmlinuz", "$o->{prefix}/boot/vmlinuz-default") };
- if ($@) {
- log::l("copying of /floppy/vmlinuz from blank modified disk failed: $@");
- }
- fs::umount("/floppy");
-}
-
sub install_urpmi {
my ($o) = @_;
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 5db3b673c..960681702 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -722,12 +722,6 @@ sub afterInstallPackages($) {
$o->SUPER::afterInstallPackages;
}
-sub copyKernelFromFloppy {
- my ($o) = @_;
- $o->ask_okcancel('', N("Please insert the Boot floppy used in drive %s", $o->{blank}), 1) or return;
- $o->SUPER::copyKernelFromFloppy;
-}
-
sub updateModulesFromFloppy {
my ($o) = @_;
$o->ask_okcancel('', N("Please insert the Update Modules floppy in drive %s", $o->{updatemodules}), 1) or return;
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 8686eaa9c..638bebd5b 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -77,7 +77,7 @@ sub load {
};
my @network_devices = $network_module ? detect_devices::getNet() : ();
- if ($::testing || $::blank) {
+ if ($::testing) {
log::l("i would load module $_ (" . join(" ", @{$options{$_}}) . ")") foreach @l;
} elsif ($::isStandalone || $::move) {
run_program::run('/sbin/modprobe', $_, @{$options{$_}})