From 1c6a709f3a2d37bf00fdd91fb2cf7c6139cb712f Mon Sep 17 00:00:00 2001
From: Andrew <andrew@ugh.net.au>
Date: Wed, 16 Mar 2016 12:53:15 +0100
Subject: [PATCH] Apply style guidelines

---
 lib/App/ClusterSSH/Cluster.pm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/lib/App/ClusterSSH/Cluster.pm b/lib/App/ClusterSSH/Cluster.pm
index 78d2bf4..51bf114 100644
--- a/lib/App/ClusterSSH/Cluster.pm
+++ b/lib/App/ClusterSSH/Cluster.pm
@@ -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 );