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

Merge pull request #57 from cqexbesd/fixups

Browse source 
Fixups for last PR
This commit is contained in:
Duncan Ferguson 2016-03-16 19:12:30 +00:00
commit dd95e94e7f
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -123,7 +123,8 @@ sub expand_filename {
$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' );
@ -329,6 +330,10 @@ file name and register the tags found.
Read in the given cluster file and register the tags found Read in the given cluster file and register the tags found
=item $cluster->expand_filename($filename);
Expand ~ or $HOME in a filename
=item $cluster->read_tag_file($filename); =item $cluster->read_tag_file($filename);
Read in the given tag file and register the tags found Read in the given tag file and register the tags found