diff options
Diffstat (limited to 'perl-install/install_steps_gtk.pm')
| -rw-r--r-- | perl-install/install_steps_gtk.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index b07ccc1e7..520abe4f3 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -179,7 +179,7 @@ sub new($$) { exec $_[0], "-dpms","-s" ,"240", "-allowMouseOpenFail", "-xf86config", $f or exit 1; } foreach (1..15) { - sleep 1; + sleep 1000; return 0 if !$ok; return 1 if c::Xtest($ENV{DISPLAY}); } @@ -210,15 +210,16 @@ sub new($$) { !$o->{vga16} && listlength(cat_("/proc/fb")) or next; $o->{allowFB} = &$launchX("XF86_$_") #- keep in mind FB is used. - and last; + and goto OK; } else { $o->{vga16} = 1 if /VGA16/; - &$launchX("XF86_$_") and last; + &$launchX("XF86_$_") and goto OK; } } + return undef; } } - @themes = @themes_vga16 if $o->{simple_themes} || $o->{vga16}; + OK: @themes = @themes_vga16 if $o->{simple_themes} || $o->{vga16}; init_sizes(); install_theme($o); |