fixing uninitialized warnings in testcases

This commit is contained in:
Johannes Lange 2017-12-26 13:39:19 +01:00
parent 80ea18624a
commit dc6a099bed
1 changed files with 1 additions and 1 deletions

View File

@ -24,7 +24,7 @@ use i3test;
sub send_net_active_window { sub send_net_active_window {
my ($id, $source) = @_; my ($id, $source) = @_;
$source = ($source eq 'pager' ? 2 : 0); $source = (((defined $source) && ($source eq 'pager')) ? 2 : 0);
my $msg = pack "CCSLLLLLLL", my $msg = pack "CCSLLLLLLL",
X11::XCB::CLIENT_MESSAGE, # response_type X11::XCB::CLIENT_MESSAGE, # response_type