summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
authorThierry.Vignaud <thierry.vignaud@gmail.com>2014-06-20 11:28:57 +0200
committerPascal Terjan <pterjan@gmail.com>2014-10-20 21:29:55 +0000
commitb933bb2848370bb14158e1274ab0dcec8a1fb5ce (patch)
treeae04f41c342ec4f096b1703835c3a5ceb7c60794 /perl-install/install/steps_gtk.pm
parent7e47168fe2d9a8e8b50a8fa227b0ca44402988bd (diff)
downloaddrakx-b933bb2848370bb14158e1274ab0dcec8a1fb5ce.tar
drakx-b933bb2848370bb14158e1274ab0dcec8a1fb5ce.tar.gz
drakx-b933bb2848370bb14158e1274ab0dcec8a1fb5ce.tar.bz2
drakx-b933bb2848370bb14158e1274ab0dcec8a1fb5ce.tar.xz
drakx-b933bb2848370bb14158e1274ab0dcec8a1fb5ce.zip
make code more readable
(needed for next commit)
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm5
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");