diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-30 22:43:51 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-30 22:43:51 +0000 |
| commit | 87af8c4f65f90b7855af957539b3b16dc85957c7 (patch) | |
| tree | 2db9dae2f26cc959ec4e8576844a74a7acb731ac /perl-install | |
| parent | 6b6616e6e228c1bf9a2aaf22246c9044b77c586e (diff) | |
| download | drakx-backup-do-not-use-87af8c4f65f90b7855af957539b3b16dc85957c7.tar drakx-backup-do-not-use-87af8c4f65f90b7855af957539b3b16dc85957c7.tar.gz drakx-backup-do-not-use-87af8c4f65f90b7855af957539b3b16dc85957c7.tar.bz2 drakx-backup-do-not-use-87af8c4f65f90b7855af957539b3b16dc85957c7.tar.xz drakx-backup-do-not-use-87af8c4f65f90b7855af957539b3b16dc85957c7.zip | |
allow move to be launched in testing mode
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 10 |
1 files changed, 6 insertions, 4 deletions
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); |