fixed tight loop bug, mt

diff --git a/dmon/scripts/dmon_evtbnetmem.pl b/dmon/scripts/dmon_evtbnetmem.pl
index 881d7945379fd2c7e08dcd0e3ff51721c2ac4ed1..2d7e5a4e29a3f9e69e2d1b5382e1be73b2c96f8b 100755 (executable)
--- a/dmon/scripts/dmon_evtbnetmem.pl
+++ b/dmon/scripts/dmon_evtbnetmem.pl
@@ -43,7 +43,10 @@ while (1) {
 
 if(!$old_eb) {
     $content = get $url;
-    next if(!defined $content);
+    if(!defined $content) {
+      sleep 1;
+      next;
+    }
     ($number_of_events) = $content =~ /Events:(.*?)Rate/;
     ($number_of_bytes)  = $content =~ /Data:(.*?)Rate/;
 }