Defined in
- Partial Call Graph (max 5 caller/called nodes):
- Testcases:
-
No testcase defined.
Source code:
global errorCode errorInfo
variable $token
upvar 0 $token state
set openP [info exists state(fd)]
set code [catch {mime::buildmessageaux $token} result]
if {![info exists errorCode]} {
set ecode {}
} else {
set ecode $errorCode
}
set einfo $errorInfo
if {(!$openP) && ([info exists state(fd)])} {
if {![info exists state(root)]} {
catch {close $state(fd)}
}
unset state(fd)
}
return -code $code -errorinfo $einfo -errorcode $ecode $result
XQL Not present:Generic, PostgreSQL, Oracle