gryf/tabbedalt
1
0
Fork 0
mirror of https://github.com/gryf/tabbedalt.git synced 2025-12-17 19:40:31 +01:00
Code Issues Projects Releases Wiki Activity

Added warning message on passing unknown command.

Browse Source
This commit is contained in:
gryf
2022-02-20 18:26:24 +01:00
parent 9a2c813adc
commit d9aec64298
1 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
tabbedalt
View File

@@ -619,10 +619,14 @@ sub command {
my ($self, $tab, $params) = @_; my ($self, $tab, $params) = @_;
(my @args) = split(':', $params); (my @args) = split(':', $params);
my $command = shift @args; my $command = shift @args;
$self->$command($params); eval {
$self->$command($params);
} or do {
warn "Unknown tabbedalt action: $command\n";
}
} }
sub _rename_tab_key_press { sub _rename_tab_key_press {
my ($self, $event, $keysym, $str) = @_; my ($self, $event, $keysym, $str) = @_;
my $tab = $self->{cur}; my $tab = $self->{cur};