summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps_gtk.pm4
2 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 5f99aaff3..853845425 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- fix fallbacking on curses install aka abort gtk install startup if X
+ failed to start
- switch from Ia Ora to Oxygen Gtk theme
- use proper design from original author
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;