From 09a426e04f583b66fea895b4f2b13aa3dec042dd Mon Sep 17 00:00:00 2001
From: hadaq <M.Traxler@gsi.de>
Date: Sat, 22 Oct 2016 14:02:39 +0200
Subject: [PATCH] fixed tight loop bug, mt

---
 dmon/scripts/dmon_evtbnetmem.pl | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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/;
 }
-- 
2.43.0