一个tcl proc source一个文件中有namespace报错了

昨天的明天

1. proc source_file {} {
   
2.     source xxx.tcl
   
3. }
   

复制代码

如上图所示我写了一个tcl proc叫source_file。这个xxx.tcl中，有如下内容

1. set new_name "ok"
   
2. namespace eval MYSPACE {
   
3.     upvar 1 new_name new_name
   
4.     if {$new_name eq "not_ok"} {
   
5.         puts "no"
   
6.     }
   
7.     proc my_proc {
   
8.         upvar 1 new_name new_name
   
9.         ...
   
10.     }
    
11. }
    

复制代码

在运行此source file proc之后会报错为：

upvar 1 new_name new_name
Error info:
bad variable name "new_name": can't create namespace variable that refers to procedure variable
    while executing
"upvar 1 new_name new_name"


这种问题该怎么解决？我必须要用一个proc来source这个文件。而且我想尽可能对我source的文件不要做什么大改动。还有就是为什么会发生此类问题，我不太理解报错的信息。