summaryrefslogtreecommitdiffstats
path: root/perl-install/install2.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/install2.pm')
-rw-r--r--perl-install/install2.pm11
1 files changed, 10 insertions, 1 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index e2d4b6368..d021f37c8 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -399,6 +399,7 @@ sub main {
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;
} %cmdline;
@@ -421,10 +422,18 @@ sub main {
unlink $_ foreach "/modules/modules.mar", "/sbin/stage1";
}
- print STDERR "in second stage install\n";
+ print STDERR "in second stage\n";
log::openLog(($::testing || $o->{localInstall}) && 'debug.log');
log::l("second stage install running (", any::drakx_version(), ")");
+ if ($::move) {
+ require move;
+ move::init();
+ $::mdkinst = '';
+ } else {
+ $::mdkinst = 'Mandrake/mdkinst';
+ }
+
$o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : $::live ? "" : "/mnt";
$o->{isUpgrade} = 1 if $::live;
mkdir $o->{prefix}, 0755;