(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()"

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;