Fix hash reference error on perl > 5.38

Fix a reference issue on hash variables which is now stricter on
later versions of perl

Author: Duncan Ferguson

lib/App/ClusterSSH/Base.pm

@@ -304,30 +304,31 @@ sub parent {
 sub sort {
     my $self = shift;
 
-    my $sort = sub { sort @_ };
-
-    return $sort unless $self->config()->{'use_natural_sort'};
-
     # if the user has asked for natural sorting we need to include an extra
     # module
-    if ( $self->config()->{'use_natural_sort'} ) {
+    my $config = $self->config();
+
+    # Make sure the configuration object has been set correctly before
+    # referencing anything
+    if ( ref $config eq "HASH" && $config->{'use_natural_sort'} ) {
         eval { Module::Load::load('Sort::Naturally'); };
         if ($@) {
             warn(
                 "natural sorting requested but unable to load Sort::Naturally: $@\n"
             );
         }
         else {
-            $sort = sub { Sort::Naturally::nsort(@_) };
+            my $sort = sub { Sort::Naturally::nsort(@_) };
+            return $sort;
         }
     }
 
+    my $sort = sub { sort @_ };
     return $sort;
 }
 
 1;
 
-
 =head1 METHODS
 
 These extra methods are provided on the object