diff options
| author | Thierry.Vignaud <thierry.vignaud@gmail.com> | 2014-06-20 11:28:57 +0200 |
|---|---|---|
| committer | Thierry Vignaud <thierry.vignaud@gmail.com> | 2014-08-20 21:13:45 +0200 |
| commit | 4978e440be12705f9d1dcb5aa84c6dd930f47dc6 (patch) | |
| tree | ae04f41c342ec4f096b1703835c3a5ceb7c60794 | |
| parent | bd6015c0eaba0db0a0b64c5f554b8561724ad5cf (diff) | |
| download | drakx-4978e440be12705f9d1dcb5aa84c6dd930f47dc6.tar drakx-4978e440be12705f9d1dcb5aa84c6dd930f47dc6.tar.gz drakx-4978e440be12705f9d1dcb5aa84c6dd930f47dc6.tar.bz2 drakx-4978e440be12705f9d1dcb5aa84c6dd930f47dc6.tar.xz drakx-4978e440be12705f9d1dcb5aa84c6dd930f47dc6.zip | |
make code more readable
(needed for next commit)
| -rw-r--r-- | perl-install/install/steps_gtk.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm index 3b0969fc4..c0ce47b3c 100644 --- a/perl-install/install/steps_gtk.pm +++ b/perl-install/install/steps_gtk.pm @@ -133,7 +133,10 @@ sub _launchX { my $start_time = time(); foreach (1..60) { log::l("waiting for the server to start ($_ $nb)"); - log::l("Server died"), return 0 if !fuzzy_pidofs(qr/\b$server\b/); + if (!fuzzy_pidofs(qr/\b$server\b/)) { + log::l("Server died"); + return 0; + } $nb++ if xf86misc::main::Xtest($wanted_DISPLAY); if ($nb > 2) { #- one succeeded test is not enough :-( log::l("AFAIK X server is up"); |