summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authorvincentdarley <vincentdarley>2001-10-22 17:10:00 (GMT)
committervincentdarley <vincentdarley>2001-10-22 17:10:00 (GMT)
commitbd7da088b2cf9cfe6004606fb57fd65ad275fe50 (patch)
tree9e94361a600e531a3580fd7b0869a6aaa5b9cb40 /win
parent2e27ec369165aca385db16cb617ced30928ced42 (diff)
downloadtcl-bd7da088b2cf9cfe6004606fb57fd65ad275fe50.zip
tcl-bd7da088b2cf9cfe6004606fb57fd65ad275fe50.tar.gz
tcl-bd7da088b2cf9cfe6004606fb57fd65ad275fe50.tar.bz2
small win fix
Diffstat (limited to 'win')
-rw-r--r--win/tclWinFCmd.c16
1 files changed, 15 insertions, 1 deletions
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 0611ca8..744ab2b 100644
--- a/win/tclWinFCmd.c
+++ b/win/tclWinFCmd.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: tclWinFCmd.c,v 1.14 2001/09/28 11:10:56 vincentdarley Exp $
+ * RCS: @(#) $Id: tclWinFCmd.c,v 1.15 2001/10/22 17:10:00 vincentdarley Exp $
*/
#include "tclWinInt.h"
@@ -447,6 +447,20 @@ DoCopyFile(
return TCL_ERROR;
}
+ /*
+ * Similarly, if 'nativeSrc' is NULL or empty, the following code
+ * locks up the process on WinNT; bail out.
+ */
+
+ if (nativeSrc == NULL || nativeSrc[0] == '\0') {
+ Tcl_SetErrno(ENOENT);
+ return TCL_ERROR;
+ }
+
+ /*
+ * OK, now try the copy.
+ */
+
__try {
if ((*tclWinProcs->copyFileProc)(nativeSrc, nativeDst, 0) != FALSE) {
return TCL_OK;