Tcl Source Code

Invoking [self] in the destructor returns an empty string if an error was raised in the constructor, except if [self] had been invoked in the constructor prior to the error.  Please, see following recipe to reproduce:

~~~
# TclOO bug.  [self] returns no value on the destructor if:
# - There is an error while constructing the object.
# - [self] is not invoked prior to the error.
::oo::class create noself {
    constructor {args} {
	error "Some error in NOSELF constructor.";
    }
    destructor {
	puts "I have no self='[self]'.";
    }
}

::oo::class create yesself {
    constructor {args} {
	self;
	error "Some error in the YESSELF constructor after invoking \[self\].";
    }
    destructor {
	puts "I do have self='[self]'.";
    }
}

catch {noself new};
catch {yesself new};
~~~

The script outputs the following:

~~~
I have no self=''.
I do have self='::oo::Obj24'.
~~~