From d9aec6429821b557bf579f59d891328df1722803 Mon Sep 17 00:00:00 2001 From: gryf Date: Sun, 20 Feb 2022 18:26:24 +0100 Subject: [PATCH] Added warning message on passing unknown command. --- tabbedalt | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/tabbedalt b/tabbedalt index 88c1218..8fa1c11 100644 --- a/tabbedalt +++ b/tabbedalt @@ -619,10 +619,14 @@ sub command { my ($self, $tab, $params) = @_; (my @args) = split(':', $params); my $command = shift @args; - $self->$command($params); - + eval { + $self->$command($params); + } or do { + warn "Unknown tabbedalt action: $command\n"; + } } + sub _rename_tab_key_press { my ($self, $event, $keysym, $str) = @_; my $tab = $self->{cur};