linse/sea
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix error in error_update (erepr)

Browse Source
This commit is contained in:
zolliker
2023-07-03 18:06:13 +02:00
parent 4ea2f9a581
commit 4fd3ad4985
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
tcl/drivers/secop_4.tcl
View File

@ -758,7 +758,7 @@ proc secop::update_ {} {
} }
error_update { error_update {
lassign $val etype erepr lassign $val etype erepr
set etext erepr set etext $erepr
regexp {.*'(.*)'} $erepr -> etext regexp {.*'(.*)'} $erepr -> etext
hsetprop $path geterror "${etype}: $etext" hsetprop $path geterror "${etype}: $etext"
} }