From e5b54b7ab34e58b34daaf89e8ee001f70ca9e6ee Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 9 Oct 2003 19:34:02 +0000 Subject: first shot as starting up mandrake-move from install2.pm as well (so many code shared) --- perl-install/install2.pm | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) (limited to 'perl-install/install2.pm') 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; -- cgit v1.2.1