--- loncom/lond	2005/02/08 17:58:42	1.278
+++ loncom/lond	2005/02/17 08:57:51	1.279
@@ -2,7 +2,7 @@
 # The LearningOnline Network
 # lond "LON Daemon" Server (port "LOND" 5663)
 #
-# $Id: lond,v 1.278 2005/02/08 17:58:42 albertel Exp $
+# $Id: lond,v 1.279 2005/02/17 08:57:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -58,7 +58,7 @@ my $DEBUG = 0;		       # Non zero to ena
 my $status='';
 my $lastlog='';
 
-my $VERSION='$Revision: 1.278 $'; #' stupid emacs
+my $VERSION='$Revision: 1.279 $'; #' stupid emacs
 my $remoteVERSION;
 my $currenthostid="default";
 my $currentdomainid;
@@ -4282,7 +4282,7 @@ sub ReadHostTable {
 	if ($configline !~ /^\s*\#/ && $configline !~ /^\s*$/ ) {
 	    my ($id,$domain,$role,$name)=split(/:/,$configline);
 	    $name=~s/\s//g;
-	    my (undef,undef,undef,undef,$ip) = gethostbyname($name);
+	    my $ip = gethostbyname($name);
 	    if (length($ip) ne 4) {
 		&logthis("Skipping host $id name $name no IP $ip found\n");
 		next;