--- loncom/lonnet/perl/lonnet.pm 2006/06/22 14:30:14 1.755 +++ loncom/lonnet/perl/lonnet.pm 2006/06/22 14:48:40 1.756 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.755 2006/06/22 14:30:14 albertel Exp $ +# $Id: lonnet.pm,v 1.756 2006/06/22 14:48:40 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -285,11 +285,10 @@ sub critical { sub error { my ($result) = @_; - if ($result =~ /^(con_lost|no_such_host|error: (\d+) )/) { + if ($result =~ /^(con_lost|no_such_host|error: (\d+) (.*))/) { if ($2 == 2) { return undef; } return $1; } - &logthis("accepting $result"); return undef; }