From 87af8c4f65f90b7855af957539b3b16dc85957c7 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Thu, 30 Oct 2003 22:43:51 +0000
Subject: allow move to be launched in testing mode

---
 move/move.pm   | 4 ++++
 move/runstage2 | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'move')

diff --git a/move/move.pm b/move/move.pm
index 8ec1ea96e..b9c3be542 100644
--- a/move/move.pm
+++ b/move/move.pm
@@ -17,6 +17,9 @@ my @ALLOWED_LANGS = qw(en_US fr es it de);
 #- by stage1 of course)
 sub init {
     my ($o) = @_;
+
+    $::testing and goto drakx_stuff;
+
     #- rw things
     mkdir "/$_" foreach qw(home mnt root etc var);
     mkdir_p "/var/$_" foreach qw(log run/console spool lib/xkb lock/subsys);
@@ -46,6 +49,7 @@ sub init {
 
     modules::load_category('multimedia/sound');
 
+drakx_stuff:
     $o->{steps}{startMove} = { reachable => 1, text => "Start Move" };
     $o->{orderedSteps_orig} = $o->{orderedSteps};
     $o->{orderedSteps} = [ qw(selectLanguage acceptLicense selectMouse selectKeyboard startMove) ];
diff --git a/move/runstage2 b/move/runstage2
index 64c557db6..f5bff628b 100755
--- a/move/runstage2
+++ b/move/runstage2
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-use lib qw(/usr/bin/stage2 /usr/lib/libDrakX);
+use lib qw(../perl-install /usr/bin/stage2 /usr/lib/libDrakX);
 use install2;
 
 $::isStandalone = 0;
-- 
cgit v1.2.1