--- loncom/lonnet/perl/lonnet.pm 2002/08/23 13:21:36 1.272 +++ loncom/lonnet/perl/lonnet.pm 2002/08/23 21:31:09 1.273 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.272 2002/08/23 13:21:36 matthew Exp $ +# $Id: lonnet.pm,v 1.273 2002/08/23 21:31:09 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1569,6 +1569,9 @@ sub get { my $rep=&reply("get:$udomain:$uname:$namespace:$items",$uhome); my @pairs=split(/\&/,$rep); + if ( $#pairs==0 && $pairs[0] =~ /^(con_lost|error|no_such_host)/i) { + return @pairs; + } my %returnhash=(); my $i=0; foreach (@$storearr) {