summaryrefslogtreecommitdiffstats
path: root/generic/tclFCmd.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-19 14:39:09 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-19 14:39:09 (GMT)
commitc310129d42dd35b9a5fc585d1b0d93e6656c2a97 (patch)
tree53e23d7d1a1023caf48795d602365a796ad8c3be /generic/tclFCmd.c
parent23b102e5e8516ffc7195aaf14a008383ffbcb69d (diff)
parentc82a99d9c150ac245f6d3e1131ff7babdda85ea0 (diff)
downloadtcl-c310129d42dd35b9a5fc585d1b0d93e6656c2a97.zip
tcl-c310129d42dd35b9a5fc585d1b0d93e6656c2a97.tar.gz
tcl-c310129d42dd35b9a5fc585d1b0d93e6656c2a97.tar.bz2
3597000 Consistent [file copy] result.
Diffstat (limited to 'generic/tclFCmd.c')
-rw-r--r--generic/tclFCmd.c17
1 files changed, 7 insertions, 10 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c
index 33c1496..13377d3 100644
--- a/generic/tclFCmd.c
+++ b/generic/tclFCmd.c
@@ -734,17 +734,14 @@ CopyRenameOneFile(
*/
errfile = target;
-
- /*
- * We now need to reset the result, because the above call, if it
- * failed, may have put an error message in place. (Ideally we
- * would prefer not to pass an interpreter in above, but the
- * channel IO code used by TclCrossFilesystemCopy currently
- * requires one).
- */
-
- Tcl_ResetResult(interp);
}
+ /*
+ * We now need to reset the result, because the above call,
+ * may have left set it. (Ideally we would prefer not to pass
+ * an interpreter in above, but the channel IO code used by
+ * TclCrossFilesystemCopy currently requires one)
+ */
+ Tcl_ResetResult(interp);
}
if ((copyFlag == 0) && (result == TCL_OK)) {
if (S_ISDIR(sourceStatBuf.st_mode)) {