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 b8dae3b1b1d0b6e84f19bd6b4bc9ea170860e0e1..5d481924af245729b80f8830131d9ee655ac4ca8 100644 (file)
--- 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;