amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-03 18:03:23 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

perltidy fixes

Browse source
This commit is contained in:
Andrew 2016-07-12 14:03:37 +02:00
parent b7b7ca70ac
commit 63b83a176c
3 changed files with 68 additions and 70 deletions
Download patch file Download diff file Expand all files Collapse all files

24
Makefile.PL
View file

@ -1,7 +1,6 @@
# Note: this file was auto-generated by Module::Build::Compat version 0.4218 # Note: this file was auto-generated by Module::Build::Compat version 0.4218
use ExtUtils::MakeMaker; use ExtUtils::MakeMaker;
WriteMakefile WriteMakefile(
(
'NAME' => 'App::ClusterSSH', 'NAME' => 'App::ClusterSSH',
'VERSION_FROM' => 'lib/App/ClusterSSH.pm', 'VERSION_FROM' => 'lib/App/ClusterSSH.pm',
'PREREQ_PM' => { 'PREREQ_PM' => {
@ -29,22 +28,15 @@ WriteMakefile
}, },
'INSTALLDIRS' => 'site', 'INSTALLDIRS' => 'site',
'EXE_FILES' => [ 'EXE_FILES' => [
'bin/ccon', 'bin/ccon', 'bin/clusterssh_bash_completion.dist',
'bin/clusterssh_bash_completion.dist', 'bin/crsh', 'bin/csftp',
'bin/crsh', 'bin/cssh', 'bin/ctel'
'bin/csftp',
'bin/cssh',
'bin/ctel'
], ],
'PL_FILES' => { 'PL_FILES' => {
'bin_PL/_build_docs' => [ 'bin_PL/_build_docs' => [
'bin/cssh', 'bin/cssh', 'bin/csftp',
'bin/csftp', 'bin/ccon', 'bin/crsh',
'bin/ccon', 'bin/ctel', 'bin/clusterssh_bash_completion.dist'
'bin/crsh',
'bin/ctel',
'bin/clusterssh_bash_completion.dist'
] ]
} }
) );
;

32
lib/App/ClusterSSH.pm
View file

@ -892,11 +892,11 @@ sub show_console() {
# the equivalent of //= but works in older Perls (e.g. 5.8) # the equivalent of //= but works in older Perls (e.g. 5.8)
sub slash_slash_equal(\$$) { sub slash_slash_equal(\$$) {
if (! defined(${$_[0]})) { if ( !defined( ${ $_[0] } ) ) {
${$_[0]} = $_[1]; ${ $_[0] } = $_[1];
} }
return ${$_[0]}; return ${ $_[0] };
} }
# leave function def open here so we can be flexible in how it's called # leave function def open here so we can be flexible in how it's called
@ -999,25 +999,31 @@ sub retile_hosts {
$self->config->dump("noexit") if ( $self->options->debug > 1 ); $self->config->dump("noexit") if ( $self->options->debug > 1 );
# now find the size of the window decorations # now find the size of the window decorations
if (! exists($self->config->{internal_terminal_wm_decoration_left})) { if ( !exists( $self->config->{internal_terminal_wm_decoration_left} ) ) {
# use the first window as exemplary # use the first window as exemplary
my($wid) = $servers{(keys(%servers))[0]}{wid}; my ($wid) = $servers{ ( keys(%servers) )[0] }{wid};
if ( defined($wid) ) {
if (defined($wid)) {
# get the WM decoration sizes # get the WM decoration sizes
($self->config->{internal_terminal_wm_decoration_left}, ( $self->config->{internal_terminal_wm_decoration_left},
$self->config->{internal_terminal_wm_decoration_right}, $self->config->{internal_terminal_wm_decoration_right},
$self->config->{internal_terminal_wm_decoration_top}, $self->config->{internal_terminal_wm_decoration_top},
$self->config->{internal_terminal_wm_decoration_bottom}) = $self->config->{internal_terminal_wm_decoration_bottom}
X11::Protocol::WM::get_net_frame_extents($xdisplay, $wid); )
= X11::Protocol::WM::get_net_frame_extents( $xdisplay, $wid );
} }
# in case the WM call failed we set some defaults # in case the WM call failed we set some defaults
slash_slash_equal($self->config->{internal_terminal_wm_decoration_left}, 0); slash_slash_equal(
slash_slash_equal($self->config->{internal_terminal_wm_decoration_right}, 0); $self->config->{internal_terminal_wm_decoration_left}, 0 );
slash_slash_equal($self->config->{internal_terminal_wm_decoration_top}, 0); slash_slash_equal(
slash_slash_equal($self->config->{internal_terminal_wm_decoration_bottom}, 0); $self->config->{internal_terminal_wm_decoration_right}, 0 );
slash_slash_equal(
$self->config->{internal_terminal_wm_decoration_top}, 0 );
slash_slash_equal(
$self->config->{internal_terminal_wm_decoration_bottom}, 0 );
} }
# now we have the info, plot first window position # now we have the info, plot first window position