summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-02-21 18:10:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-02-21 18:10:13 +0000
commit21b1ff0a989115a4c42defbac7d7da5f19add768 (patch)
tree05c4982c18bf7bed9ca36c0c9dc8e238ccd64ad2 /perl-install/install2.pm
parent0869e606e8f1b68e9f4e3d32c76cfbaaac2b8469 (diff)
downloaddrakx-backup-do-not-use-21b1ff0a989115a4c42defbac7d7da5f19add768.tar
drakx-backup-do-not-use-21b1ff0a989115a4c42defbac7d7da5f19add768.tar.gz
drakx-backup-do-not-use-21b1ff0a989115a4c42defbac7d7da5f19add768.tar.bz2
drakx-backup-do-not-use-21b1ff0a989115a4c42defbac7d7da5f19add768.tar.xz
drakx-backup-do-not-use-21b1ff0a989115a4c42defbac7d7da5f19add768.zip
- move the loadO of patch/defcfg after loading modules.dep
- generateAutoInstFloppy is no more a step - removed use Data::Dumper
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm14
1 files changed, 4 insertions, 10 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 2f5c3f47a..9e36510fb 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -3,8 +3,6 @@ package install2; # $Id$
use diagnostics;
use strict;
-use Data::Dumper;
-
use vars qw($o $version);
#-######################################################################################
@@ -59,9 +57,6 @@ arch() !~ /alpha/ ? (
) : (),
setupBootloader => [ __("Install bootloader"), 1, 1, '', "installPackages" ],
configureX => [ __("Configure X"), 1, 1, '', ["formatPartitions", "setupBootloader"] ],
-arch() !~ /alpha/ ? (
- generateAutoInstFloppy => [ __("Auto install floppy"), 1, 1, '!$::expert || $o->{lnx4win}', "installPackages" ],
-) : (),
exitInstall => [ __("Exit install"), 0, 0, '!$::expert && !$::live' ],
);
for (my $i = 0; $i < @installSteps; $i += 2) {
@@ -355,9 +350,6 @@ sub configureX {
$o->configureX($clicked) if pkgs::packageFlagInstalled(pkgs::packageByName($o->{packages}, 'XFree86')) && !$o->{X}{disabled} || $clicked || $::testing;
}
#------------------------------------------------------------------------------
-sub generateAutoInstFloppy { $o->generateAutoInstFloppy }
-
-#------------------------------------------------------------------------------
sub exitInstall { $o->exitInstall(getNextStep() eq "exitInstall") }
@@ -492,8 +484,6 @@ sub main {
$o->{interactive} ||= 'gtk';
require"install_steps_$o->{interactive}.pm";
}
- eval { $o = $::o = install_any::loadO($o, "patch") } if $patch;
- eval { $o = $::o = install_any::loadO($o, $cfg) } if $cfg;
$o->{prefix} = $::testing ? "/tmp/test-perl-install" : $::live ? "" : "/mnt";
mkdir $o->{prefix}, 0755;
@@ -503,6 +493,10 @@ sub main {
modules::read_stage1_conf($_) foreach "/tmp/conf.modules", "/etc/modules.conf";
modules::read_already_loaded();
+ #- done after module dependencies are loaded for "vfat depends on fat"
+ eval { $o = $::o = install_any::loadO($o, "patch") } if $patch;
+ eval { $o = $::o = install_any::loadO($o, $cfg) } if $cfg;
+
eval { modules::load("af_packet") };
map_index {