diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-03-19 14:39:09 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-03-19 14:39:09 (GMT) |
| commit | c310129d42dd35b9a5fc585d1b0d93e6656c2a97 (patch) | |
| tree | 53e23d7d1a1023caf48795d602365a796ad8c3be /generic/tclFCmd.c | |
| parent | 23b102e5e8516ffc7195aaf14a008383ffbcb69d (diff) | |
| parent | c82a99d9c150ac245f6d3e1131ff7babdda85ea0 (diff) | |
| download | tcl-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.c | 17 |
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)) { |