From: Michael Stapelberg <michael@stapelberg.de>
Date: Mon, 26 Sep 2016 15:29:27 +0000 (+0200)
Subject: t/158-wm_take_focus.t: avoid shift on scalars
X-Git-Tag: 4.13~31^2
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=refs%2Fpull%2F2479%2Fhead;p=i3%2Fi3

t/158-wm_take_focus.t: avoid shift on scalars

This feature is forbidden in Perl ≥ 5.24:

  Experimental shift on scalar is now forbidden at
  ./t/158-wm_take_focus.t line 94, near ");"
---

diff --git a/testcases/t/158-wm_take_focus.t b/testcases/t/158-wm_take_focus.t
index b8dae3b1..5d481924 100644
--- a/testcases/t/158-wm_take_focus.t
+++ b/testcases/t/158-wm_take_focus.t
@@ -56,7 +56,8 @@ subtest 'Window without WM_TAKE_FOCUS', sub {
 
     ok(!recv_take_focus($window), 'did not receive ClientMessage');
 
-    my $con = shift get_ws_content($ws);
+    my ($nodes) = get_ws_content($ws);
+    my $con = shift @$nodes;
     ok($con->{focused}, 'con is focused');
 
     done_testing;
@@ -91,7 +92,8 @@ subtest 'Window with WM_TAKE_FOCUS and without InputHint', sub {
 
     ok(!recv_take_focus($window), 'did not receive ClientMessage');
 
-    my $con = shift get_ws_content($ws);
+    my ($nodes) = get_ws_content($ws);
+    my $con = shift @$nodes;
     ok($con->{focused}, 'con is focused');
 
     done_testing;
@@ -111,7 +113,8 @@ subtest 'Window with WM_TAKE_FOCUS and unspecified InputHint', sub {
 
     ok(!recv_take_focus($window), 'did not receive ClientMessage');
 
-    my $con = shift get_ws_content($ws);
+    my ($nodes) = get_ws_content($ws);
+    my $con = shift @$nodes;
     ok($con->{focused}, 'con is focused');
 
     done_testing;