summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKevin B Kenny <kennykb@acm.org>2007-05-02 20:50:20 (GMT)
committerKevin B Kenny <kennykb@acm.org>2007-05-02 20:50:20 (GMT)
commit4f8df087339d5193ec055e69a92a5d5b9c0256e6 (patch)
treebb7430bcf82225223bc7ed7fc99f7ec132dd649b
parentf7a689954d82d07cfd1e77353edbfb7ef96fafd6 (diff)
downloadtcl-4f8df087339d5193ec055e69a92a5d5b9c0256e6.zip
tcl-4f8df087339d5193ec055e69a92a5d5b9c0256e6.tar.gz
tcl-4f8df087339d5193ec055e69a92a5d5b9c0256e6.tar.bz2
* generic/tclTest.c (SimpleMatchInDirectory): Corrected a refcount
imbalance that affected the filesystem-[147]* tests in the test suite. Thanks to Don Porter for the patch. [Bug 1710707]
-rw-r--r--ChangeLog6
-rw-r--r--generic/tclTest.c3
2 files changed, 7 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 16a74bd..8c75cef 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2007-05-02 Kevin B. Kenny <kennykb@acm.org>
+
+ * generic/tclTest.c (SimpleMatchInDirectory): Corrected a refcount
+ imbalance that affected the filesystem-[147]* tests in the test
+ suite. Thanks to Don Porter for the patch. [Bug 1710707]
+
2007-05-01 Miguel Sofer <msofer@users.sf.net>
* generic/tclVar.c (TclPtrSetVar): fixed leak whenever newvaluePtr
diff --git a/generic/tclTest.c b/generic/tclTest.c
index 4ed28c8..4cf57ce 100644
--- a/generic/tclTest.c
+++ b/generic/tclTest.c
@@ -14,7 +14,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclTest.c,v 1.109 2007/04/23 17:56:07 kennykb Exp $
+ * RCS: @(#) $Id: tclTest.c,v 1.110 2007/05/02 20:50:26 kennykb Exp $
*/
#define TCL_TEST
@@ -6805,7 +6805,6 @@ SimpleMatchInDirectory(
resPtr = Tcl_NewObj();
Tcl_IncrRefCount(resPtr);
origPtr = SimpleRedirect(dirPtr);
- Tcl_IncrRefCount(origPtr);
res = Tcl_FSMatchInDirectory(interp, resPtr, origPtr, pattern, types);
if (res == TCL_OK) {
int gLength, j;