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

Apply style guidelines

Browse source
This commit is contained in:
Andrew 2016-03-16 12:53:15 +01:00
parent b0366e8469
commit 1c6a709f3a
1 changed files with 7 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lib/App/ClusterSSH/Cluster.pm
View file

@ -119,11 +119,12 @@ sub expand_filename {
my $home;
# try to determine the home directory
if (! defined($home = $ENV{'HOME'})) {
$home = (getpwuid($>))[5];
if ( !defined( $home = $ENV{'HOME'} ) ) {
$home = ( getpwuid($>) )[5];
}
if (! defined($home)) {
$self->debug( 3, 'No home found so leaving filename ', $filename, ' unexpanded' );
if ( !defined($home) ) {
$self->debug( 3, 'No home found so leaving filename ',
$filename, ' unexpanded' );
return $filename;
}
$self->debug( 4, 'Using ', $home, ' as home directory' );
@ -142,7 +143,7 @@ sub expand_filename {
sub read_tag_file {
my ( $self, $filename ) = @_;
$filename = $self->expand_filename( $filename );
$filename = $self->expand_filename($filename);
$self->debug( 2, 'Reading tags from file ', $filename );
if ( -f $filename ) {
@ -162,7 +163,7 @@ sub read_tag_file {
sub read_cluster_file {
my ( $self, $filename ) = @_;
$filename = $self->expand_filename( $filename );
$filename = $self->expand_filename($filename);
$self->debug( 2, 'Reading clusters from file ', $filename );