secop: fix bug when write failed

clear the property secoprequested in case an error message is received
2025-09-03 10:22:12 +02:00
parent 034a7abf5c
commit 59d665c85b
1 changed files with 1 additions and 0 deletions
--- a/tcl/drivers/secop_4.tcl
+++ b/tcl/drivers/secop_4.tcl
@@ -790,6 +790,7 @@ proc secop::update_ {} {
      set requesttype [string range $messagetype 6 end]
      if {$requesttype eq "change" && $path ne ""} {
        hsetprop $path changed 0
+        catch {hdelprop $path secoprequested}
      }
      lassign $sent_message sent_type sent_par
      if {$requesttype eq $sent_message && $par eq $sent_par} {