i3status-wrapper: abbreviate some dereferencing

1 files changed, 9 insertions, 9 deletions

diff --git a/scripts/desktop/i3status-wrapper b/scripts/desktop/i3status-wrapper
index 135a28ef..cbfa3685 100755
--- a/scripts/desktop/i3status-wrapper
+++ b/scripts/desktop/i3status-wrapper
@@ -239,21 +239,21 @@ unless (fork // warn "couldn't fork command pipe reader") {
 	    my $i = first { $cols->[$_] == $ws->{focused_col} } 0..$#$cols;
 	    my $move = $1 eq "move";
 	    $2 eq "right" ? $i++ : $i--;
-	    if ($cols->@* > $i >= 0) {
+	    if (@$cols > $i >= 0) {
 		$wmipc->cmd($cmd);
 	    } elsif ($i == @$cols && $ws->{off_right}->@*) {
 		with_ignored_events {
-		    my $pushed = shift $cols->@*;
+		    my $pushed = shift @$cols;
 		    my $pulled = pop $ws->{off_right}->@*;
 		    my @cmds = show_con($pulled);
 		    push $ws->{off_left}->@*, $pushed;
 		    if ($move) {
 			push @cmds, "focus left", "move right";
-			my $tem = pop $cols->@*;
-			push $cols->@*, $pulled, $tem;
+			my $tem = pop @$cols;
+			push @$cols, $pulled, $tem;
 		    } else {
 			$ws->{focused_col} = $pulled;
-			push $cols->@*, $pulled;
+			push @$cols, $pulled;
 		    }
 
 		    $wmipc->cmd(@cmds, hide_con($pushed));
@@ -261,19 +261,19 @@ unless (fork // warn "couldn't fork command pipe reader") {
 		kill USR1 => $i3status;
 	    } elsif ($i == -1 && $ws->{off_left}->@*) {
 		with_ignored_events {
-		    my $pushed = pop $cols->@*;
+		    my $pushed = pop @$cols;
 		    my $pulled = pop $ws->{off_left}->@*;
 		    my @cmds = show_con($pulled);
 		    push $ws->{off_right}->@*, $pushed;
 
 		    if ($move) {
 			push @cmds, "focus left";
-			my $tem = shift $cols->@*;
-			unshift $cols->@*, $tem, $pulled;
+			my $tem = shift @$cols;
+			unshift @$cols, $tem, $pulled;
 		    } else {
 			push @cmds, "move left";
 			$ws->{focused_col} = $pulled;
-			unshift $cols->@*, $pulled;
+			unshift @$cols, $pulled;
 		    }
 
 		    $wmipc->cmd(@cmds, hide_con($pushed));