From 8f9138fbad1e88490a2f2ca83987a01d925e39a5 Mon Sep 17 00:00:00 2001 From: Michael Stapelberg Date: Mon, 26 Sep 2016 17:29:27 +0200 Subject: [PATCH] t/158-wm_take_focus.t: avoid shift on scalars MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit 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 ");" --- testcases/t/158-wm_take_focus.t | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) 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;