summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-06-04 20:21:21 +0000
committerThierry Vignaud <tv@mageia.org>2012-06-04 20:21:21 +0000
commitb6bcdeab43b2efaa398e6a24dd87c279c70e5373 (patch)
tree56135be52e59300d3c572155e329678dfc623257 /perl-install/install/steps_gtk.pm
parentaa25a178c1da85a0247bf4e370060aff2008b1c9 (diff)
downloaddrakx-b6bcdeab43b2efaa398e6a24dd87c279c70e5373.tar
drakx-b6bcdeab43b2efaa398e6a24dd87c279c70e5373.tar.gz
drakx-b6bcdeab43b2efaa398e6a24dd87c279c70e5373.tar.bz2
drakx-b6bcdeab43b2efaa398e6a24dd87c279c70e5373.tar.xz
drakx-b6bcdeab43b2efaa398e6a24dd87c279c70e5373.zip
(new,_setup_and_start_X) fix fallbacking on curses install aka abort
gtk install startup if X failed to start issue introduced in r2434 on Dec 16 2011: "(_setup_and_start_X) split it out of new()"
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index c026bf174..a0ddca73e 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -36,7 +36,7 @@ sub new($$) {
if (!$::local_install &&
($::testing ? $ENV{DISPLAY} ne $wanted_DISPLAY : $ENV{DISPLAY} =~ /^:\d/)) { #- is the display local or distant?
- _setup_and_start_X($o, $wanted_DISPLAY);
+ _setup_and_start_X($o, $wanted_DISPLAY) or return;
}
$ENV{DISPLAY} = $wanted_DISPLAY;
@@ -96,7 +96,7 @@ sub _setup_and_start_X {
and return;
} else {
$o->{vga16} = 1 if /VGA16/;
- _launchX($o, $f, $prog, $Driver, $wanted_DISPLAY) and return;
+ _launchX($o, $f, $prog, $Driver, $wanted_DISPLAY) and return 1;
}
}
return undef;