diff options
author | dkf <dkf@noemail.net> | 2010-03-05 22:50:31 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2010-03-05 22:50:31 (GMT) |
commit | 01d2fc00c0cd699800ad8d967f05944c202769d7 (patch) | |
tree | 5a9c26c5f8f31f934c934a2a6dc61372ef3a2ec8 /generic/tclIORTrans.c | |
parent | 10e3b50d34de681954c091886361cc4daf4cc5a2 (diff) | |
download | tcl-01d2fc00c0cd699800ad8d967f05944c202769d7.zip tcl-01d2fc00c0cd699800ad8d967f05944c202769d7.tar.gz tcl-01d2fc00c0cd699800ad8d967f05944c202769d7.tar.bz2 |
Fix [Bug 2964425].
FossilOrigin-Name: c25ea55b7c7a733ffd6b106ae18744228a718374
Diffstat (limited to 'generic/tclIORTrans.c')
-rw-r--r-- | generic/tclIORTrans.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclIORTrans.c b/generic/tclIORTrans.c index dcad087..eb40ce5 100644 --- a/generic/tclIORTrans.c +++ b/generic/tclIORTrans.c @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIORTrans.c,v 1.13 2010/03/05 14:34:04 dkf Exp $ + * RCS: @(#) $Id: tclIORTrans.c,v 1.14 2010/03/05 22:50:32 dkf Exp $ */ #include <tclInt.h> @@ -2665,8 +2665,6 @@ ForwardProc( ForwardSetObjError(paramPtr, MarshallError(interp)); paramPtr->limit.max = -1; } - - Tcl_DecrRefCount(resObj); break; default: |