From 7aa211a9febb24a260408082576cd25e820e8872 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 12 Oct 2001 14:30:36 +0000
Subject: Adaptation pour perl-tk 800.023

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

(limited to 'generic/Item.c')

diff --git a/generic/Item.c b/generic/Item.c
index 361754d..c47d822 100644
--- a/generic/Item.c
+++ b/generic/Item.c
@@ -1538,9 +1538,6 @@ QueryAttribute(char	*record,
     else if (attr_uid == desc->uid) {
       result = Tcl_GetObjResult(wi->interp);
       AttributeToObj(wi, record, desc, buffer, result);
-#ifdef PTK0
-      Tcl_DecrRefCount(result);
-#endif
       break;
     }
     else {
-- 
cgit v1.1