diff options
Diffstat (limited to 'nshelper.tcl')
| -rw-r--r-- | nshelper.tcl | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/nshelper.tcl b/nshelper.tcl index d0cb35a..a31b7c0 100644 --- a/nshelper.tcl +++ b/nshelper.tcl @@ -66,7 +66,19 @@ proc {namespace import} {args} { if {[namespace qualifiers $cmd] eq $current} { return -code error "import pattern \"$pattern\" tries to import from namespace \"$current\" into itself" } - alias ${current}::[namespace tail $cmd] $cmd + # What if this alias would create a loop? + # follow the target alias chain to see if we are creating a loop + set newcmd ${current}::[namespace tail $cmd] + + set alias $cmd + while {[exists -alias $alias]} { + set alias [info alias $alias] + if {$alias eq $newcmd} { + return -code error "import pattern \"$pattern\" would create a loop" + } + } + + alias $newcmd $cmd } } } |