diff options
| author | vincentdarley <vincentdarley@noemail.net> | 2001-10-22 17:10:00 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley@noemail.net> | 2001-10-22 17:10:00 (GMT) |
| commit | b77862a76cd7460adea5c1889f4c736067f33e1b (patch) | |
| tree | 9e94361a600e531a3580fd7b0869a6aaa5b9cb40 /win | |
| parent | a75b096d8dfbce5dfd3b36ce4f0bf21210a1168c (diff) | |
| download | tcl-b77862a76cd7460adea5c1889f4c736067f33e1b.zip tcl-b77862a76cd7460adea5c1889f4c736067f33e1b.tar.gz tcl-b77862a76cd7460adea5c1889f4c736067f33e1b.tar.bz2 | |
small win fix
FossilOrigin-Name: 69156a505a87022c49002182c9707bc1b41c0cd3
Diffstat (limited to 'win')
| -rw-r--r-- | win/tclWinFCmd.c | 16 |
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; |