From 16fe33bd42699f39be83863e78c59a10d6dfee6d Mon Sep 17 00:00:00 2001
From: hobbs <hobbs>
Date: Fri, 8 Mar 2002 23:46:27 +0000
Subject: (DoCopyFile): correctly set retval to TCL_OK

---
 ChangeLog        | 4 ++++
 win/tclWinFCmd.c | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 382231e..77ffbb5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2002-03-08  Jeff Hobbs  <jeffh@ActiveState.com>
+
+	* win/tclWinFCmd.c (DoCopyFile): correctly set retval to TCL_OK.
+
 2002-03-07  Mo DeJong  <mdejong@users.sourceforge.net>
 
 	* win/tclWin32Dll.c (TclpCheckStackSpace):
diff --git a/win/tclWinFCmd.c b/win/tclWinFCmd.c
index 0859269..886bd99 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.23 2002/03/08 01:45:52 mdejong Exp $
+ * RCS: @(#) $Id: tclWinFCmd.c,v 1.24 2002/03/08 23:46:27 hobbs Exp $
  */
 
 #include "tclWinInt.h"
@@ -472,7 +472,7 @@ DoCopyFile(
     
     __try {
 	if ((*tclWinProcs->copyFileProc)(nativeSrc, nativeDst, 0) != FALSE) {
-	    retval = -1;
+	    retval = TCL_OK;
 	}
     } __except (EXCEPTION_CONTINUE_EXECUTION) {}
 
-- 
cgit v0.12