[LON-CAPA-cvs] cvs: loncom /lonnet/perl lonnet.pm

www www@source.lon-capa.org
Tue, 06 Jul 2010 18:36:56 -0000


www		Tue Jul  6 18:36:56 2010 EDT

  Modified files:              
    /loncom/lonnet/perl	lonnet.pm 
  Log:
  A little bit more transparent about what it does when not getting valid
  reply to server load command
  
  
Index: loncom/lonnet/perl/lonnet.pm
diff -u loncom/lonnet/perl/lonnet.pm:1.1071 loncom/lonnet/perl/lonnet.pm:1.1072
--- loncom/lonnet/perl/lonnet.pm:1.1071	Fri Jun 25 04:37:54 2010
+++ loncom/lonnet/perl/lonnet.pm	Tue Jul  6 18:36:56 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # TCP networking package
 #
-# $Id: lonnet.pm,v 1.1071 2010/06/25 04:37:54 raeburn Exp $
+# $Id: lonnet.pm,v 1.1072 2010/07/06 18:36:56 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -710,7 +710,7 @@
     my $userloadans = &reply('userload',$try_server);
 
     if ($loadans !~ /\d/ && $userloadans !~ /\d/) {
-	next; #didn't get a number from the server
+	return; #didn't get a number from the server
     }
 
     my $load;