debugging hook added

diff --git a/generic/vfs.c b/generic/vfs.c
index ede5523b537a7f930b12c1d8a872c21ceed7f442..4f1d2a851314481224e0be01a7f966364a9d7a90 100644 (file)
--- 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);
 }
 \f
 /* Return fully normalized path owned by the caller */