summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-30 22:43:51 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-30 22:43:51 +0000
commit87af8c4f65f90b7855af957539b3b16dc85957c7 (patch)
tree2db9dae2f26cc959ec4e8576844a74a7acb731ac /perl-install
parent6b6616e6e228c1bf9a2aaf22246c9044b77c586e (diff)
downloaddrakx-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.pm10
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);