amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-22 01:12:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fix tests for updated Perl::Tidy

Browse source
This commit is contained in:
Duncan Ferguson 2018-03-03 15:29:13 +00:00
parent e0d062e20a
commit 651c756f55
2 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Build.PL
View file

@ -125,7 +125,7 @@ my $build = $class->new(
'CPAN::Changes' => 0.27,
'File::Slurp' => 0,
'Test::PerlTidy' => 0,
'Perl::Tidy' => 20171214,
'Perl::Tidy' => 20180220,
},
recommends => { 'Sort::Naturally' => 0, },
configure_requires => { 'Module::Build' => 0, },

10
lib/App/ClusterSSH.pm
View file

@ -309,7 +309,7 @@ sub load_keyboard_map() {
# YES! current keycode have priority over old one (phew!)
$keyboardmap{ $keycodetosym{ $keyboard[$i][$modifier]
} }
} }
= $keyboard_stringlike_modifiers{$modifier}
. ( $i + $min );
}
@ -1912,12 +1912,12 @@ sub create_menubar() {
-menuitems => [
[ "command",
"Show History",
-command => sub { $self->show_history; },
-command => sub { $self->show_history; },
-accelerator => $self->config->{key_history},
],
[ "command",
"Exit",
-command => sub { $self->exit_prog },
-command => sub { $self->exit_prog },
-accelerator => $self->config->{key_quit},
]
],
@ -1927,7 +1927,7 @@ sub create_menubar() {
my $host_menu_items = [
[ "command",
"Retile Windows",
-command => sub { $self->retile_hosts },
-command => sub { $self->retile_hosts },
-accelerator => $self->config->{key_retilehosts},
],
@ -1950,7 +1950,7 @@ sub create_menubar() {
],
[ "command",
"Add Host(s) or Cluster(s)",
-command => sub { $self->add_host_by_name, },
-command => sub { $self->add_host_by_name, },
-accelerator => $self->config->{key_addhost},
],
[ "command",