--- loncom/lonnet/perl/lonnet.pm	2011/10/06 11:01:55	1.1133
+++ loncom/lonnet/perl/lonnet.pm	2011/10/14 22:05:19	1.1134
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1133 2011/10/06 11:01:55 foxr Exp $
+# $Id: lonnet.pm,v 1.1134 2011/10/14 22:05:19 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -10457,6 +10457,7 @@ sub get_dns {
     while (%alldns) {
 	my ($dns) = keys(%alldns);
 	my $ua=new LWP::UserAgent;
+        $ua->timeout(30);
 	my $request=new HTTP::Request('GET',"$alldns{$dns}://$dns$url");
 	my $response=$ua->request($request);
         delete($alldns{$dns});