Fix bug where unresolvable host stopped program running (thanks to Sami Kerola)

clusterssh/ChangeLog

@@ -2,6 +2,8 @@
 
 * Add in list of clusters to 'Add Host' window 
   - thanks for Stanislas Rouvelin for the idea
+* Fix bug where unresolvable host stopped program running
+  - thanks to Sami Kerola
 
 2009-06-02 Duncan Ferguson <duncan_ferguson@user.sf.net> - v3.26-1
 

clusterssh/THANKS

@@ -29,5 +29,6 @@ David F. Skoll
 Bogdan Pintea
 Gerfried Fuchs
 Stanislas Rouvelin
+Sami Kerola
 
 $Id$

clusterssh/src/cssh.pl

@@ -986,12 +986,11 @@ sub check_host($) {
         else {
             logmsg( 1,
                 "Failed to check host (falling back to gethostbyname): $!" );
-            return gethostbyname($host)->name();
         }
     }
-    else {
-        return gethostbyname($host)->name();
-    }
+
+    my $gethost_obj = gethostbyname($host);
+    return defined($gethost_obj) ? $gethost_obj->name() : $host;
 }
 
 sub open_client_windows(@) {