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

---
 perl-install/install_steps_gtk.pm | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

(limited to 'perl-install/install_steps_gtk.pm')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 8d4fb6ebc..419d29894 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -41,7 +41,7 @@ sub new($$) {
 	}
 	my $launchX = sub {
 	    my ($server, $Driver) = @_;
-            $::move and goto launch_X;
+            $::move and goto configured_X;
 
 	    my $xpmac_opts = cat_('/proc/cmdline');
 	    install_gtk::createXconf($f, @{$o->{mouse}}{"XMOUSETYPE", "device"}, $o->{mouse}{wacom}[0], $Driver);
@@ -51,14 +51,16 @@ sub new($$) {
 	    my @options = (
 	      if_(arch() !~ /^sparc/ && arch() ne 'ppc' && $server ne 'Xnest', 
 		  '-kb', '-allowMouseOpenFail', '-xf86config', $f),
-	      ($wanted_DISPLAY, 'tty7', '-dpms', '-s', '240'),
+	      ('tty7', '-dpms', '-s', '240'),
 	    );
 
 	    push @options, $xpmac_opts !~ /ofonly/ ? ('-mode', '17', '-depth', '32') : '-mach64' if $server =~ /Xpmac/;
 	    push @options, '-fp', '/usr/X11R6/lib/X11/fonts:unscaled' if $server =~ /Xsun|Xpmac/;
+
+          configured_X:
 	    push @options, '-ac', '-geometry', $o->{vga16} ? '640x480' : '800x600' if $server eq 'Xnest';
+            push @options, $wanted_DISPLAY;
 
-          launch_X:
 	    if (!fork()) {
 		c::setsid();
 		exec $server, @options or c::_exit(1);
@@ -103,7 +105,7 @@ sub new($$) {
 	    @servers = qw(Xpmac);
         }
 
-        if ($::move) {
+        if ($::move && !$::testing) {
             require move;
             require run_program;
             move::automatic_xconf($o);
-- 
cgit v1.2.1