amassivus/clusterssh
1
0
Fork 0
mirror of https://github.com/duncs/clusterssh.git synced 2025-07-01 09:07:25 +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; my $home;
# try to determine the home directory # try to determine the home directory
if (! defined($home = $ENV{'HOME'})) { if ( !defined( $home = $ENV{'HOME'} ) ) {
$home = (getpwuid($>))[5]; $home = ( getpwuid($>) )[5];
} }
if (! defined($home)) { if ( !defined($home) ) {
$self->debug( 3, 'No home found so leaving filename ', $filename, ' unexpanded' ); $self->debug( 3, 'No home found so leaving filename ',
$filename, ' unexpanded' );
return $filename; return $filename;
} }
$self->debug( 4, 'Using ', $home, ' as home directory' ); $self->debug( 4, 'Using ', $home, ' as home directory' );
@ -142,7 +143,7 @@ sub expand_filename {
sub read_tag_file { sub read_tag_file {
my ( $self, $filename ) = @_; my ( $self, $filename ) = @_;
$filename = $self->expand_filename( $filename ); $filename = $self->expand_filename($filename);
$self->debug( 2, 'Reading tags from file ', $filename ); $self->debug( 2, 'Reading tags from file ', $filename );
if ( -f $filename ) { if ( -f $filename ) {
@ -162,7 +163,7 @@ sub read_tag_file {
sub read_cluster_file { sub read_cluster_file {
my ( $self, $filename ) = @_; my ( $self, $filename ) = @_;
$filename = $self->expand_filename( $filename ); $filename = $self->expand_filename($filename);
$self->debug( 2, 'Reading clusters from file ', $filename ); $self->debug( 2, 'Reading clusters from file ', $filename );