--- loncom/lonnet/perl/lonnet.pm 2011/06/11 17:43:30 1.1113 +++ loncom/lonnet/perl/lonnet.pm 2011/06/12 13:48:28 1.1114 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.1113 2011/06/11 17:43:30 raeburn Exp $ +# $Id: lonnet.pm,v 1.1114 2011/06/12 13:48:28 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -816,7 +816,7 @@ sub compare_server_load { my $userloadans = &reply('userload',$try_server); if ($loadans !~ /\d/ && $userloadans !~ /\d/) { - return; #didn't get a number from the server + return ($spare_server, $lowest_load); #didn't get a number from the server } my $load;