diff options
author | vincentdarley <vincentdarley@noemail.net> | 2003-06-23 10:14:02 (GMT) |
---|---|---|
committer | vincentdarley <vincentdarley@noemail.net> | 2003-06-23 10:14:02 (GMT) |
commit | ef3ae607751324100b383068c6719b00bb81c537 (patch) | |
tree | 5df14649c5f9d7fb26d0a5440941db51293c8936 /generic/tclFCmd.c | |
parent | fee1ee6c2945aaa56837b932cc4ff0890323eefd (diff) | |
download | tcl-ef3ae607751324100b383068c6719b00bb81c537.zip tcl-ef3ae607751324100b383068c6719b00bb81c537.tar.gz tcl-ef3ae607751324100b383068c6719b00bb81c537.tar.bz2 |
filesystem fixes -- see ChangeLog
FossilOrigin-Name: c25e6f0318fb9679ee1dcb0bb493bc1f33f6bcec
Diffstat (limited to 'generic/tclFCmd.c')
-rw-r--r-- | generic/tclFCmd.c | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclFCmd.c b/generic/tclFCmd.c index 0d1cc76..fb4a880 100644 --- a/generic/tclFCmd.c +++ b/generic/tclFCmd.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclFCmd.c,v 1.21 2003/05/14 19:21:22 das Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.22 2003/06/23 10:14:02 vincentdarley Exp $ */ #include "tclInt.h" @@ -658,6 +658,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); } } if ((copyFlag == 0) && (result == TCL_OK)) { |