diff options
author | dgp <dgp@noemail.net> | 2013-03-19 14:26:10 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2013-03-19 14:26:10 (GMT) |
commit | b0cc6afd4e237010a476331898577349ed1f22d4 (patch) | |
tree | cddea1a36d6b88042ae21a39031325c0bc28cb6e /generic/tclFCmd.c | |
parent | 1da6bb23e93ded3161c11f52b15c4af53c75504b (diff) | |
download | tcl-b0cc6afd4e237010a476331898577349ed1f22d4.zip tcl-b0cc6afd4e237010a476331898577349ed1f22d4.tar.gz tcl-b0cc6afd4e237010a476331898577349ed1f22d4.tar.bz2 |
3597000 Consistent [file copy] result.
FossilOrigin-Name: ef8bec815489c0153e20259fc1ec126cfca416a2
Diffstat (limited to 'generic/tclFCmd.c')
-rw-r--r-- | generic/tclFCmd.c | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 5ad7063..382e9f3 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -691,15 +691,14 @@ CopyRenameOneFile(interp, source, target, copyFlag, force) * so it should be quite clear */ 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)) { |