Multiple call of the initialize.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2687 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ext/dl/handle.c

@@ -75,6 +75,9 @@ rb_dlhandle_initialize(int argc, VALUE argv[], VALUE self)
   };
 #endif
   Data_Get_Struct(self, struct dl_handle, dlhandle);
+  if( dlhandle->ptr && dlhandle->open && dlhandle->enable_close ){
+    dlclose(dlhandle->ptr);
+  }
   dlhandle->ptr = ptr;
   dlhandle->open = 1;
   dlhandle->enable_close = 0;

ext/dl/ptr.c

@@ -202,6 +202,10 @@ rb_dlptr_initialize(int argc, VALUE argv[], VALUE self)
 
   if( p ){
     Data_Get_Struct(self, struct ptr_data, data);
+    if( data->ptr && data->free ){
+      /* Free previous memory. Use of inappropriate initialize may cause SEGV. */
+      (*(data->free))(data->ptr);
+    }
     data->ptr  = p;
     data->size = s;
     data->free = f;

ext/dl/sym.c

@@ -158,6 +158,8 @@ rb_dlsym_initialize(int argc, VALUE argv[], VALUE self)
 
   if( saddr ){
     Data_Get_Struct(self, struct sym_data, data);
+    if( data->name ) free(data->name);
+    if( data->type ) free(data->type);
     data->func = saddr;
     data->name = sname ? strdup(sname) : 0;
     data->type = stype ? strdup(stype) : 0;