summaryrefslogtreecommitdiffstats
path: root/win
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2004-06-29 14:03:42 (GMT)
committerdgp <dgp@users.sourceforge.net>2004-06-29 14:03:42 (GMT)
commitf8a03e16efd71ee8e4320b00a07f7d964168809c (patch)
tree94f20cdd05113d66e392705ceb265e8d06b75dbf /win
parentb96dc3a960b8964e84edd279c99a01b92be99278 (diff)
downloadtcl-f8a03e16efd71ee8e4320b00a07f7d964168809c.zip
tcl-f8a03e16efd71ee8e4320b00a07f7d964168809c.tar.gz
tcl-f8a03e16efd71ee8e4320b00a07f7d964168809c.tar.bz2
* win/tclWinInit.c: Corrected reference counting flaw in
recent changes. Thanks to Pat Thoyts. [Bug 981893].
Diffstat (limited to 'win')
-rw-r--r--win/tclWinInit.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclWinInit.c b/win/tclWinInit.c
index bae876e..9c1217c 100644
--- a/win/tclWinInit.c
+++ b/win/tclWinInit.c
@@ -7,7 +7,7 @@
* Copyright (c) 1998-1999 by Scriptics Corporation.
* All rights reserved.
*
- * RCS: @(#) $Id: tclWinInit.c,v 1.57 2004/06/18 13:42:42 dkf Exp $
+ * RCS: @(#) $Id: tclWinInit.c,v 1.58 2004/06/29 14:03:46 dgp Exp $
*/
#include "tclWinInt.h"
@@ -378,7 +378,7 @@ TclpInitLibraryPath(path)
AppendDllPath(pathPtr, TclWinGetTclInstance(), installLib);
Tcl_ListObjGetElements(NULL, pathPtr, &objc, &objv);
- SetDefaultLibraryDir(objv[objc-1]);
+ SetDefaultLibraryDir(Tcl_DuplicateObj(objv[objc-1]));
/*
* Look for the library relative to the executable. This algorithm