fixing uninitialized warnings in testcases

diff --git a/testcases/t/195-net-active-window.t b/testcases/t/195-net-active-window.t
index 18245dfc2149b22bbcbbfef39b5fb5cac473afef..f9f883cbd7756a45bd48d85440a216afb8ebe222 100644 (file)
--- 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