From 728de2088dfcad1d003389423a5a363fb23918ea Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Thu, 31 Aug 2000 12:23:50 +0000
Subject: Correction d'un probl�me de comptage de r�f�rence en Perl conduisant
 � des fuites m�moires (utilisation de Tcl_SetObjResult).

---
 generic/Item.c | 3 +++
 1 file changed, 3 insertions(+)

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 {
-- 
cgit v1.1