From a3e0573ee8464a10d6870a23970e1d05711944fe Mon Sep 17 00:00:00 2001
From: antirez <antirez@gmail.com>
Date: Wed, 18 Jun 2014 15:07:08 +0200
Subject: [PATCH] Test: tcl client, unset deferred var on close.

---
 tests/support/redis.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/support/redis.tcl b/tests/support/redis.tcl
index a30d1fd68..cc1cbba36 100644
--- a/tests/support/redis.tcl
+++ b/tests/support/redis.tcl
@@ -105,6 +105,7 @@ proc ::redis::__method__close {id fd} {
     catch {close $fd}
     catch {unset ::redis::fd($id)}
     catch {unset ::redis::blocking($id)}
+    catch {unset ::redis::deferred($id)}
     catch {unset ::redis::state($id)}
     catch {unset ::redis::statestack($id)}
     catch {unset ::redis::callback($id)}