From 2f976ecb9636fb79c1f97e1337956062f368b873 Mon Sep 17 00:00:00 2001 From: gryf Date: Mon, 21 Feb 2022 09:03:13 +0100 Subject: [PATCH] Added missing return statements for commands. --- tabbedalt | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/tabbedalt b/tabbedalt index 8b10045..b9e56c7 100644 --- a/tabbedalt +++ b/tabbedalt @@ -689,11 +689,13 @@ sub move_tab_right { sub next_tab { my ($self, $params) = @_; $self->_go_to_tab(1); + return 1; } sub prev_tab { my ($self, $params) = @_; $self->_go_to_tab(0); + return 1; } sub jump_to_tab { @@ -709,7 +711,7 @@ sub jump_to_tab { if ($#{$self->{tabs}} >= $nr){ $self->make_current ($self->{tabs}[$nr]); } - () + return 1; } sub _go_to_tab { @@ -718,7 +720,6 @@ sub _go_to_tab { my ($idx) = grep $self->{tabs}[$_] == $tab, 0 .. $#{ $self->{tabs} }; $direction? ++$idx : --$idx; $self->make_current ($self->{tabs}[$idx % @{ $self->{tabs}}]); - return 1; } sub _move_tab {