fixing uninitialized warnings in testcases

2017-12-26 13:39:19 +01:00
parent 80ea18624a
commit dc6a099bed
1 changed files with 1 additions and 1 deletions
--- a/testcases/t/195-net-active-window.t
+++ b/testcases/t/195-net-active-window.t
@ -24,7 +24,7 @@ use i3test;
 sub send_net_active_window {
    my ($id, $source) = @_;

-    $source = ($source eq 'pager' ? 2 : 0);
+    $source = (((defined $source) && ($source eq 'pager')) ? 2 : 0);

    my $msg = pack "CCSLLLLLLL",
        X11::XCB::CLIENT_MESSAGE, # response_type