From 54bc78f7c78e5df0b0bd64035bafa74c45b310da Mon Sep 17 00:00:00 2001
From: Dirk Zimoch <dirk.zimoch@psi.ch>
Date: Thu, 12 Jul 2018 16:07:48 +0200
Subject: [PATCH] fix bug that leads to infinite callback loop when first
 command (typically 'out') fails

---
 src/StreamEpics.cc | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/StreamEpics.cc b/src/StreamEpics.cc
index 1f5261f..7c69a2a 100644
--- a/src/StreamEpics.cc
+++ b/src/StreamEpics.cc
@@ -741,16 +741,15 @@ process()
     debug("Stream::process(%s) start\n", name());
     status = NO_ALARM;
     convert = OK;
-    record->pact = true;
     if (!startProtocol(StreamCore::StartNormal))
     {
         debug("Stream::process(%s): could not start, status=%d\n",
             name(), status);
         (void) recGblSetSevr(record, status, INVALID_ALARM);
-        record->pact = false;
         return false;
     }
     debug("Stream::process(%s): protocol started\n", name());
+    record->pact = true;
     return true;
 }