Fix hostname query if gethostbyname() for some reason doesn't return any

hostname information.


git-svn-id: http://svn.cactuscode.org/arrangements/CactusUtils/Formaline/trunk@76 83718e91-0e4f-0410-abf4-91180603181f

1 files changed, 7 insertions, 5 deletions

diff --git a/src/util/gethostname.pl b/src/util/gethostname.pl
index d403e05..26b09ad 100755
--- a/src/util/gethostname.pl
+++ b/src/util/gethostname.pl
@@ -17,13 +17,15 @@ my $hostname = `hostname`;
 chomp $hostname;
 
 # Find its host name and all aliases
-my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname ($hostname);
-
-# Split the aliases
-my @names = ($name, split (' ', $aliases));
+my ($name, $aliases) = gethostbyname ($hostname);
 
 # Use the host name as fallback
-my $goodname = $name;
+my $goodname = $name ? $name : $hostname;
+
+# Split the aliases
+my @names = ();
+push (@names, $name) if ($name);
+push (@names, split (' ', $aliases)) if ($aliases);
 
 # Search for a name that contains a dot
 foreach my $maybename (@names)