diff options
author | lecoanet | 2000-08-31 12:23:50 +0000 |
---|---|---|
committer | lecoanet | 2000-08-31 12:23:50 +0000 |
commit | 728de2088dfcad1d003389423a5a363fb23918ea (patch) | |
tree | 82bb4271c5dda8d7f26f8db0a249dc623da57d62 | |
parent | 7f0a88dddb948404b2a29f5fd5ffe3e243c1ca26 (diff) | |
download | tkzinc-728de2088dfcad1d003389423a5a363fb23918ea.zip tkzinc-728de2088dfcad1d003389423a5a363fb23918ea.tar.gz tkzinc-728de2088dfcad1d003389423a5a363fb23918ea.tar.bz2 tkzinc-728de2088dfcad1d003389423a5a363fb23918ea.tar.xz |
Correction d'un probl�me de comptage de r�f�rence en Perl conduisant
� des fuites m�moires (utilisation de Tcl_SetObjResult).
-rw-r--r-- | generic/Item.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/Item.c b/generic/Item.c index cf198e7..3c9f651 100644 --- a/generic/Item.c +++ b/generic/Item.c @@ -1588,6 +1588,9 @@ QueryAttribute(char *record, else if (attr_uid == desc->uid) { result = AttributeToObj(wi, record, desc, buffer); Tcl_SetObjResult(wi->interp, result); +#ifdef PTK + Tcl_DecrRefCount(result); +#endif break; } else { |