Tcl Source Code

In Tcl built with -DPURIFY and --enable-symbols, the following script results in a segmentation fault:

variable res {}
namespace eval ns1 {
    namespace export *
    proc p1 {} {
        return success
    }
    interp alias {} [namespace current]::p2 {} [namespace current]::p1
}


namespace eval ns2 {
    namespace import [namespace parent]::ns1::p2
}

proc ondelete {oldname newname op} {
    variable res
    catch {
        $oldname
    } cres
    set res [string match {invalid command name*ns1::p1*} $cres]
}
trace add command  ns2::p2 delete ondelete
namespace delete ns1

The issue is that the delete trace on the imported routine deletes the namespace of the underlying routine, resulting in the deletion of both the underlying routine and the alias, but then the imported command is called, and its ImportedCmdData structure still holds a reference to the now-deleted Alias structure.