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};