TCL脚本出现legacy-50096错误：为何触发此遗留错误？

• 直接触发报错的根源是error_check过程中的语法错误：
  该过程第2行的if $::error == 1不符合TCL语法规范——TCL的if命令要求条件表达式必须用大括号包裹，否则变量会被提前展开。当$::error的值为1时，该行代码会被解析为if 1 == 1，TCL会尝试把第一个1当作命令执行，自然就抛出invalid command name "1"的错误。
• legacy-50096是系统在脚本执行中断时抛出的通用停止处理错误码，本身只是标识执行终止状态，真正的问题还是前面的if语句语法错误。
• 修复建议：将error_check里的if $::error == 1修改为if {$::error == 1}，用大括号包裹条件表达式，避免变量提前展开导致的命令解析错误。

内容的提问来源于stack exchange，提问作者phk