diff options
| author | vincentdarley <vincentdarley> | 2003-06-23 10:21:15 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-06-23 10:21:15 (GMT) |
| commit | 413f218a68dc50e3fc9d85fe2a67501baf2e7b5c (patch) | |
| tree | 10ccde0a31ac8fea50b2ab3d79facaaeb9a90025 /generic/tclFCmd.c | |
| parent | 97af27dfed36a48c534a0e1414a74b7cea47c6a4 (diff) | |
| download | tcl-413f218a68dc50e3fc9d85fe2a67501baf2e7b5c.zip tcl-413f218a68dc50e3fc9d85fe2a67501baf2e7b5c.tar.gz tcl-413f218a68dc50e3fc9d85fe2a67501baf2e7b5c.tar.bz2 | |
file copy empty filename bug fix
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)) { |