summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-12 23:56:21 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-12 23:56:21 +0000
commit33876d96b93d796507af8dd46be3b9aba579d2b0 (patch)
tree2a6b030d080434295a126076b4727b891e5667e8 /perl-install/install2.pm
parent66b03c87eb3e94bd4eb764d97cd7aaf3ca7f52f9 (diff)
downloaddrakx-backup-do-not-use-33876d96b93d796507af8dd46be3b9aba579d2b0.tar
drakx-backup-do-not-use-33876d96b93d796507af8dd46be3b9aba579d2b0.tar.gz
drakx-backup-do-not-use-33876d96b93d796507af8dd46be3b9aba579d2b0.tar.bz2
drakx-backup-do-not-use-33876d96b93d796507af8dd46be3b9aba579d2b0.tar.xz
drakx-backup-do-not-use-33876d96b93d796507af8dd46be3b9aba579d2b0.zip
no_comment
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm18
1 files changed, 8 insertions, 10 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 986ee9c56..6d301c3fb 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -280,11 +280,6 @@ sub selectInstallClass {
#------------------------------------------------------------------------------
sub partitionDisks {
return install_any::searchAndMount4Upgrade($o) if $o->{isUpgrade};
- return
- $o->{fstab} = [
- { device => "loop7", type => 0x83, size => 2048 * cat_('/dos/lnx4win/size.txt'), mntpoint => "/", isFormatted => 1, isMounted => 1 },
- { device => "/initrd/dos/lnx4win/swapfile", type => 0x82, mntpoint => "swap", isFormatted => 1, isMounted => 1 },
- ] if $o->{lnx4win};
($o->{hd_dev}) = cat_("/proc/mounts") =~ m|/tmp/(\S+)\s+/tmp/hdimage|;
@@ -320,7 +315,7 @@ Then choose action ``Mount point'' and set it to `/'");
}
sub formatPartitions {
- unless ($o->{lnx4win} || $o->{isUpgrade}) {
+ unless ($o->{isUpgrade}) {
$o->choosePartitionsToFormat($o->{fstab});
$o->formatMountPartitions($o->{fstab}) unless $::testing;
eval { $o = $::o = install_any::loadO($o) } if $_[1] == 1;
@@ -333,6 +328,11 @@ sub formatPartitions {
raid::prepare_prefixed($o->{raid}, $o->{prefix});
+ my $d = "/initrd/loopfs/lnx4win";
+ if (-d $d) {
+ install_any::getAndSaveFile("lnx4win/$_", "$d/$_") foreach qw(loadlin.exe linux.pif lnx4win.exe);
+ }
+
#-noatime option for ext2 fs on laptops (do not wake up the hd)
#- Do not update inode access times on this
#- file system (e.g, for faster access on the
@@ -454,13 +454,12 @@ sub addUser {
sub createBootdisk {
modules::write_conf("$o->{prefix}/etc/conf.modules");
- return if $o->{lnx4win};
$o->createBootdisk($_[1] == 1);
}
#------------------------------------------------------------------------------
sub setupBootloader {
- return if $o->{lnx4win} || $::g_auto_install;
+ return if $::g_auto_install;
$o->setupBootloaderBefore if $_[1] == 1;
$o->setupBootloader($_[1] - 1);
@@ -494,6 +493,7 @@ sub main {
install_steps_auto_install::errorInStep();
};
$ENV{SHARE_PATH} ||= "/usr/share";
+ $ENV{DURING_INSTALL} = 1;
$::beginner = $::expert = $::g_auto_install = 0;
@@ -641,7 +641,6 @@ sub main {
modules::read_already_loaded();
eval { modules::load("af_packet") };
- install_any::lnx4win_preinstall() if $o->{lnx4win};
#-the main cycle
my $clicked = 0;
@@ -677,7 +676,6 @@ sub main {
fs::write($o->{prefix}, $o->{fstab}, $o->{manualFstab}, $o->{useSupermount});
modules::write_conf("$o->{prefix}/etc/conf.modules");
- install_any::lnx4win_postinstall($o->{prefix}) if $o->{lnx4win};
install_any::killCardServices();
#- make sure failed upgrade will not hurt too much.