Undefine allocator of WIN32OLE_VARIABLE to get rid of warning

Author: nobu

ext/win32ole/win32ole_variable.c

@@ -370,6 +370,7 @@ VALUE cWIN32OLE_VARIABLE;
 void Init_win32ole_variable(void)
 {
     cWIN32OLE_VARIABLE = rb_define_class("WIN32OLE_VARIABLE", rb_cObject);
+    rb_undef_alloc_func(cWIN32OLE_VARIABLE);
     rb_define_method(cWIN32OLE_VARIABLE, "name", folevariable_name, 0);
     rb_define_method(cWIN32OLE_VARIABLE, "ole_type", folevariable_ole_type, 0);
     rb_define_method(cWIN32OLE_VARIABLE, "ole_type_detail", folevariable_ole_type_detail, 0);

test/win32ole/test_win32ole_variable.rb

@@ -16,6 +16,10 @@ def setup
       @var2 = variables.find {|v| v.name == 'UILevel'}
     end
 
+    def test_initialize
+      assert_raise(TypeError) {WIN32OLE_VARIABLE.new}
+    end
+
     def test_name
       assert_equal('ssfDESKTOP', @var1.name)
     end