improve luft driver

2022-10-17 17:10:39 +02:00
parent 6d99df5bf1
commit 60112ccdc5
2 changed files with 22 additions and 7 deletions
--- a/tcl/drivers/luft.tcl
+++ b/tcl/drivers/luft.tcl
@ -45,8 +45,8 @@ proc luft::writeCf {} {
  } else {
    luft::set_error "epics error: $val $errtxt"
  }
-  if {[scan [lindex [sct target] 0] %d period]} {
-    sct timeout [expr [clock seconds] + $period + 10]
+  catch {
+    sct timeout [expr [clock seconds] + $timeout + 10]
  }
  return idle
 }