Shut up Perl warning

This commit is contained in:
Eelco Dolstra 2014-03-18 14:10:31 +01:00
parent 01fc3e5153
commit de57c0eb66

View File

@ -497,7 +497,7 @@ sub waitForX {
retry sub { retry sub {
my ($status, $out) = $self->execute("journalctl -bu systemd-logind | grep Linked"); my ($status, $out) = $self->execute("journalctl -bu systemd-logind | grep Linked");
return 0 if $status != 0; return 0 if $status != 0;
my ($status, $out) = $self->execute("xwininfo -root > /dev/null 2>&1"); ($status, $out) = $self->execute("xwininfo -root > /dev/null 2>&1");
return 1 if $status == 0; return 1 if $status == 0;
} }
}); });