--- loncom/lonnet/perl/lonnet.pm 2007/05/14 08:47:54 1.874 +++ loncom/lonnet/perl/lonnet.pm 2007/05/14 09:38:59 1.875 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.874 2007/05/14 08:47:54 albertel Exp $ +# $Id: lonnet.pm,v 1.875 2007/05/14 09:38:59 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -756,7 +756,7 @@ sub get_dom { if ($udom && $uhome && ($uhome ne 'no_host')) { my $rep=&reply("getdom:$udom:$namespace:$items",$uhome); my %returnhash; - if ($rep =~ /^error: 2 /) { + if ($rep eq '' || $rep =~ /^error: 2 /) { return %returnhash; } my @pairs=split(/\&/,$rep);