Add prefix to logging
This commit is contained in:
parent
da24fc6b20
commit
08de047d91
|
@ -377,7 +377,11 @@ proc ::auto::runplugin {fn {_plugin ""} args} {
|
||||||
} else {
|
} else {
|
||||||
set call [list $rfn $args]
|
set call [list $rfn $args]
|
||||||
}
|
}
|
||||||
if {[catch {uplevel 1 {*}$call} msg]} {
|
set ologprefix $::auto::logprefix
|
||||||
|
set ::auto::logprefix "$plugin:$::auto::logprefix"
|
||||||
|
set ret [catch {uplevel 1 {*}$call} msg]
|
||||||
|
set ::auto::logprefix $ologprefix
|
||||||
|
if {$ret} {
|
||||||
log "$rfn: $msg" 0
|
log "$rfn: $msg" 0
|
||||||
lassign [info stacktrace] p f l
|
lassign [info stacktrace] p f l
|
||||||
log " $f:$l @ $p" 0
|
log " $f:$l @ $p" 0
|
||||||
|
|
Loading…
Reference in New Issue