[83147] trunk/base/src/pextlib1.0/fs-traverse.c
jmr at macports.org
jmr at macports.org
Fri Aug 26 07:12:57 PDT 2011
Revision: 83147
http://trac.macports.org/changeset/83147
Author: jmr at macports.org
Date: 2011-08-26 07:12:57 -0700 (Fri, 26 Aug 2011)
Log Message:
-----------
print path of root_fts when fts_read fails in do_traverse
Modified Paths:
--------------
trunk/base/src/pextlib1.0/fs-traverse.c
Modified: trunk/base/src/pextlib1.0/fs-traverse.c
===================================================================
--- trunk/base/src/pextlib1.0/fs-traverse.c 2011-08-26 13:49:48 UTC (rev 83146)
+++ trunk/base/src/pextlib1.0/fs-traverse.c 2011-08-26 14:12:57 UTC (rev 83147)
@@ -249,8 +249,14 @@
}
}
/* 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);
return TCL_ERROR;
}
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20110826/9a371468/attachment.html>
More information about the macports-changes
mailing list