From: hadaq <M.Traxler@gsi.de>
Date: Sat, 22 Oct 2016 12:02:39 +0000 (+0200)
Subject: fixed tight loop bug, mt
X-Git-Url: https://jspc29.x-matter.uni-frankfurt.de/git/?a=commitdiff_plain;h=09a426e04f583b66fea895b4f2b13aa3dec042dd;p=daqtools.git

fixed tight loop bug, mt
---

diff --git a/dmon/scripts/dmon_evtbnetmem.pl b/dmon/scripts/dmon_evtbnetmem.pl
index 881d794..2d7e5a4 100755
--- 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/;
 }