summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-03-19 14:31:56 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-03-19 14:31:56 (GMT)
commitc82a99d9c150ac245f6d3e1131ff7babdda85ea0 (patch)
tree89b9bfaf7718af0cfa4826543888199b145667af /generic
parent01ae22053af8cd618c105c63909fa6386f316bbc (diff)
parenta515c79f52c3d0927a7377700467074b80b8d169 (diff)
downloadtcl-c82a99d9c150ac245f6d3e1131ff7babdda85ea0.zip
tcl-c82a99d9c150ac245f6d3e1131ff7babdda85ea0.tar.gz
tcl-c82a99d9c150ac245f6d3e1131ff7babdda85ea0.tar.bz2
3597000 Consistent [file copy] result.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclFCmd.c17
1 files changed, 7 insertions, 10 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c
index c59fb54..93ccfd7 100644
--- a/generic/tclFCmd.c
+++ b/generic/tclFCmd.c
@@ -742,17 +742,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)) {