diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2003-06-23 10:21:14 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2003-06-23 10:21:14 (GMT) |
| commit | 2d493a2e6c7b766e9e061ad83092f48a7dfc857c (patch) | |
| tree | 10ccde0a31ac8fea50b2ab3d79facaaeb9a90025 /generic/tclFCmd.c | |
| parent | 6dfed96b315616f3ead0fc3a0fd708ee02247d7a (diff) | |
| download | tcl-2d493a2e6c7b766e9e061ad83092f48a7dfc857c.zip tcl-2d493a2e6c7b766e9e061ad83092f48a7dfc857c.tar.gz tcl-2d493a2e6c7b766e9e061ad83092f48a7dfc857c.tar.bz2 | |
file copy empty filename bug fix
FossilOrigin-Name: 601c047b17758338840c4b48d0ac570c672970c1
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 50bea95..a105f6e 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.20 2002/08/08 10:41:22 hobbs Exp $ + * RCS: @(#) $Id: tclFCmd.c,v 1.20.2.1 2003/06/23 10:21:16 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)) { |