fixing uninitialized warnings in testcases
This commit is contained in:
parent
80ea18624a
commit
dc6a099bed
|
@ -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
|
||||||
|
|
Loading…
Reference in New Issue