From 754c93ed56a0af2af62996eadab96fd9f3793aa5 Mon Sep 17 00:00:00 2001
From: hadaq <jan@lxhadeb07>
Date: Sun, 3 Mar 2019 18:31:05 +0100
Subject: [PATCH] less blinking in normal data taking. mt

---
 hmon/permanent/hmon_eb_run.pl | 16 +++++++++-------
 1 file changed, 9 insertions(+), 7 deletions(-)

diff --git a/hmon/permanent/hmon_eb_run.pl b/hmon/permanent/hmon_eb_run.pl
index 059015c..2686219 100755
--- a/hmon/permanent/hmon_eb_run.pl
+++ b/hmon/permanent/hmon_eb_run.pl
@@ -31,8 +31,8 @@ my @byteshist;
 
 # with this switch disable qalog and enable printout only JAM
 my $opt_debug = 0;
-
-my $error_counter=0;
+my $error_counter = 0;
+my $persistent_error_state;
 
 # sub cntbits32 {
 #   return (unpack('%32b*', pack('i',$_[0])));
@@ -305,14 +305,16 @@ while (1) {
 
   #########################
 
-  if ($qastate == QA::ERROR) {
-    if ($error_counter <= 4) {
+  if($qastate == QA::ERROR) {
+    $error_counter++;
+    if($error_counter <= 4) {
       $qastate = QA::OK;
-      $error_counter++;
-    } else {
-      $error_counter=0;
+      $qamsg   .=  " error_counter: $error_counter ";
     }
   }
+  else {
+    $error_counter=0;
+  }
 
 
   if ($trbneterr) {
-- 
2.43.0