summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2003-06-23 10:21:15 (GMT)
committervincentdarley <vincentdarley>2003-06-23 10:21:15 (GMT)
commit413f218a68dc50e3fc9d85fe2a67501baf2e7b5c (patch)
tree10ccde0a31ac8fea50b2ab3d79facaaeb9a90025 /generic
parent97af27dfed36a48c534a0e1414a74b7cea47c6a4 (diff)
downloadtcl-413f218a68dc50e3fc9d85fe2a67501baf2e7b5c.zip
tcl-413f218a68dc50e3fc9d85fe2a67501baf2e7b5c.tar.gz
tcl-413f218a68dc50e3fc9d85fe2a67501baf2e7b5c.tar.bz2
file copy empty filename bug fix
Diffstat (limited to 'generic')
-rw-r--r--generic/tclFCmd.c10
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)) {