diff options
| author | vincentdarley <vincentdarley> | 2003-06-23 10:14:02 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-06-23 10:14:02 (GMT) |
| commit | e42bd5945d15a3616dc2412e70037724fbe20e37 (patch) | |
| tree | 5df14649c5f9d7fb26d0a5440941db51293c8936 /generic/tclFCmd.c | |
| parent | 2d0356834339b6ced61df5517004e0943e44b5c5 (diff) | |
| download | tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.zip tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.tar.gz tcl-e42bd5945d15a3616dc2412e70037724fbe20e37.tar.bz2 | |
filesystem fixes -- see ChangeLog
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)) { |