From 4978e440be12705f9d1dcb5aa84c6dd930f47dc6 Mon Sep 17 00:00:00 2001
From: "Thierry.Vignaud" <thierry.vignaud@gmail.com>
Date: Fri, 20 Jun 2014 11:28:57 +0200
Subject: make code more readable

(needed for next commit)
---
 perl-install/install/steps_gtk.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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");
-- 
cgit v1.2.1