From fe803e98cff48504c8f6c991e75d58cb22404e94 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Thu, 20 Feb 2003 12:12:48 +0000 Subject: [PATCH] debugging hook added --- generic/vfs.c | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/generic/vfs.c b/generic/vfs.c index ede5523..4f1d2a8 100644 --- a/generic/vfs.c +++ b/generic/vfs.c @@ -854,14 +854,12 @@ VfsFilesystemObjCmd(dummy, interp, objc, objv) /* Handle an error thrown by a tcl vfs implementation */ static void VfsInternalError(Tcl_Interp* interp) { - if (interp != NULL) { - Tcl_MutexLock(&internalErrorMutex); - if (internalErrorScript != NULL) { - Tcl_EvalObjEx(interp, internalErrorScript, - TCL_EVAL_GLOBAL | TCL_EVAL_DIRECT); - } - Tcl_MutexUnlock(&internalErrorMutex); + Tcl_MutexLock(&internalErrorMutex); + if (internalErrorScript != NULL) { + Tcl_EvalObjEx(interp, internalErrorScript, + TCL_EVAL_GLOBAL | TCL_EVAL_DIRECT); } + Tcl_MutexUnlock(&internalErrorMutex); } /* Return fully normalized path owned by the caller */ -- 2.23.0