Changeset 83147

Timestamp:

08/26/11 07:12:57 (4 years ago)

Author:

jmr@…

Message:

print path of root_fts when fts_read fails in do_traverse

File:

• trunk/base/src/pextlib1.0/fs-traverse.c (modified) (1 diff)

trunk/base/src/pextlib1.0/fs-traverse.c

@@ -250 +250 @@
     }
     /* check errno before calling fts_close in case it sets errno to 0 on success */
-    if (errno != 0 || (fts_close(root_fts) != 0 && !(flags & F_IGNORE_ERRORS))) {
+    if (errno != 0) {
+        Tcl_SetErrno(errno);
+        Tcl_ResetResult(interp);
+        Tcl_AppendResult(interp, root_fts->fts_path, ": ", (char *)Tcl_PosixError(interp), NULL);
+        fts_close(root_fts);
+        return TCL_ERROR;
+    } else if (fts_close(root_fts) != 0 && !(flags & F_IGNORE_ERRORS)) {
         Tcl_SetErrno(errno);
         Tcl_SetResult(interp, (char *)Tcl_PosixError(interp), TCL_STATIC);