amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 01:43:25 +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
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, 'CPAN::Changes' => 0.27,
'File::Slurp' => 0, 'File::Slurp' => 0,
'Test::PerlTidy' => 0, 'Test::PerlTidy' => 0,
'Perl::Tidy' => 20171214, 'Perl::Tidy' => 20180220,
}, },
recommends => { 'Sort::Naturally' => 0, }, recommends => { 'Sort::Naturally' => 0, },
configure_requires => { 'Module::Build' => 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!) # YES! current keycode have priority over old one (phew!)
$keyboardmap{ $keycodetosym{ $keyboard[$i][$modifier] $keyboardmap{ $keycodetosym{ $keyboard[$i][$modifier]
} } } }
= $keyboard_stringlike_modifiers{$modifier} = $keyboard_stringlike_modifiers{$modifier}
. ( $i + $min ); . ( $i + $min );
} }
@ -1912,12 +1912,12 @@ sub create_menubar() {
-menuitems => [ -menuitems => [
[ "command", [ "command",
"Show History", "Show History",
-command => sub { $self->show_history; }, -command => sub { $self->show_history; },
-accelerator => $self->config->{key_history}, -accelerator => $self->config->{key_history},
], ],
[ "command", [ "command",
"Exit", "Exit",
-command => sub { $self->exit_prog }, -command => sub { $self->exit_prog },
-accelerator => $self->config->{key_quit}, -accelerator => $self->config->{key_quit},
] ]
], ],
@ -1927,7 +1927,7 @@ sub create_menubar() {
my $host_menu_items = [ my $host_menu_items = [
[ "command", [ "command",
"Retile Windows", "Retile Windows",
-command => sub { $self->retile_hosts }, -command => sub { $self->retile_hosts },
-accelerator => $self->config->{key_retilehosts}, -accelerator => $self->config->{key_retilehosts},
], ],
@ -1950,7 +1950,7 @@ sub create_menubar() {
], ],
[ "command", [ "command",
"Add Host(s) or Cluster(s)", "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}, -accelerator => $self->config->{key_addhost},
], ],
[ "command", [ "command",