From 151c80f40aff75da15475b4020699f7302f66387 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Wed, 27 May 2015 13:36:27 +0000
Subject: tcltklib.c: fix memory leak

* ext/tk/tcltklib.c (ip_init): reject already initialized
  interpreter to fix memory leak.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@50652 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/tcltklib.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'ext/tk/tcltklib.c')

diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index 4a1d3b8317..40d546ea9d 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -6134,6 +6134,9 @@ ip_init(argc, argv, self)
 
     /* create object */
     TypedData_Get_Struct(self, struct tcltkip, &tcltkip_type, ptr);
+    if (DATA_PTR(self)) {
+	rb_raise(rb_eArgError, "already initialized interpreter");
+    }
     ptr = ALLOC(struct tcltkip);
     /* ptr = RbTk_ALLOC_N(struct tcltkip, 1); */
     DATA_PTR(self) = ptr;
-- 
cgit v1.2.3