From dc6a099bed22aef099bd7265c944f6dd1c7908d6 Mon Sep 17 00:00:00 2001
From: Johannes Lange <johannes.lange@rwth-aachen.de>
Date: Tue, 26 Dec 2017 13:39:19 +0100
Subject: [PATCH] fixing uninitialized warnings in testcases

---
 testcases/t/195-net-active-window.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testcases/t/195-net-active-window.t b/testcases/t/195-net-active-window.t
index 18245dfc..f9f883cb 100644
--- 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
-- 
2.39.5