amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-04-20 16:59:06 +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
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Build.PL
View file

@ -83,16 +83,16 @@ my $build = $class->new(
dist_author => q{Duncan Ferguson <duncan_j_ferguson@yahoo.co.uk>},
dist_version_from => 'lib/App/ClusterSSH.pm',
requires => {
'version' => '0',
'Tk' => '800.022',
'X11::Protocol' => '0.56',
'version' => '0',
'Tk' => '800.022',
'X11::Protocol' => '0.56',
'X11::Protocol::WM' => '0',
'Locale::Maketext' => 0,
'Exception::Class' => '1.31',
'Try::Tiny' => 0,
'Getopt::Long' => 0,
'File::Path' => 0,
'File::Glob' => 0,
'Locale::Maketext' => 0,
'Exception::Class' => '1.31',
'Try::Tiny' => 0,
'Getopt::Long' => 0,
'File::Path' => 0,
'File::Glob' => 0,
},
build_requires => {
'Test::Pod::Coverage' => 0,

88
Makefile.PL
View file

@ -1,50 +1,42 @@
# Note: this file was auto-generated by Module::Build::Compat version 0.4218
use ExtUtils::MakeMaker;
WriteMakefile
(
'NAME' => 'App::ClusterSSH',
'VERSION_FROM' => 'lib/App/ClusterSSH.pm',
'PREREQ_PM' => {
'CPAN::Changes' => '0.27',
'Exception::Class' => '1.31',
'File::Glob' => 0,
'File::Path' => 0,
'File::Slurp' => 0,
'File::Temp' => 0,
'File::Which' => 0,
'Getopt::Long' => 0,
'Locale::Maketext' => 0,
'Readonly' => 0,
'Test::Differences' => 0,
'Test::DistManifest' => 0,
'Test::PerlTidy' => 0,
'Test::Pod' => 0,
'Test::Pod::Coverage' => 0,
'Test::Trap' => 0,
'Tk' => '800.022',
'Try::Tiny' => 0,
'X11::Protocol' => '0.56',
'X11::Protocol::WM' => 0,
'version' => '0'
},
'INSTALLDIRS' => 'site',
'EXE_FILES' => [
'bin/ccon',
'bin/clusterssh_bash_completion.dist',
'bin/crsh',
'bin/csftp',
'bin/cssh',
'bin/ctel'
],
'PL_FILES' => {
'bin_PL/_build_docs' => [
'bin/cssh',
'bin/csftp',
'bin/ccon',
'bin/crsh',
'bin/ctel',
'bin/clusterssh_bash_completion.dist'
]
}
)
;
WriteMakefile(
'NAME' => 'App::ClusterSSH',
'VERSION_FROM' => 'lib/App/ClusterSSH.pm',
'PREREQ_PM' => {
'CPAN::Changes' => '0.27',
'Exception::Class' => '1.31',
'File::Glob' => 0,
'File::Path' => 0,
'File::Slurp' => 0,
'File::Temp' => 0,
'File::Which' => 0,
'Getopt::Long' => 0,
'Locale::Maketext' => 0,
'Readonly' => 0,
'Test::Differences' => 0,
'Test::DistManifest' => 0,
'Test::PerlTidy' => 0,
'Test::Pod' => 0,
'Test::Pod::Coverage' => 0,
'Test::Trap' => 0,
'Tk' => '800.022',
'Try::Tiny' => 0,
'X11::Protocol' => '0.56',
'X11::Protocol::WM' => 0,
'version' => '0'
},
'INSTALLDIRS' => 'site',
'EXE_FILES' => [
'bin/ccon', 'bin/clusterssh_bash_completion.dist',
'bin/crsh', 'bin/csftp',
'bin/cssh', 'bin/ctel'
],
'PL_FILES' => {
'bin_PL/_build_docs' => [
'bin/cssh', 'bin/csftp',
'bin/ccon', '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)
sub slash_slash_equal(\$$) {
if (! defined(${$_[0]})) {
${$_[0]} = $_[1];
if ( !defined( ${ $_[0] } ) ) {
${ $_[0] } = $_[1];
}
return ${$_[0]};
return ${ $_[0] };
}
# 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 );
# 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
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
($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_top},
$self->config->{internal_terminal_wm_decoration_bottom}) =
X11::Protocol::WM::get_net_frame_extents($xdisplay, $wid);
$self->config->{internal_terminal_wm_decoration_bottom}
)
= X11::Protocol::WM::get_net_frame_extents( $xdisplay, $wid );
}
# in case the WM call failed we set some defaults
slash_slash_equal($self->config->{internal_terminal_wm_decoration_left}, 0);
slash_slash_equal($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);
slash_slash_equal(
$self->config->{internal_terminal_wm_decoration_left}, 0 );
slash_slash_equal(
$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