From 674f0aa4782afec2748900c601f9288e56a91bae Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sun, 1 Sep 2002 08:14:11 +0000
Subject: [PATCH] win32ole.c(fole_each) : ensure to release IEnumVARIANT
 interface.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2776 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/win32ole/win32ole.c | 39 ++++++++++++++++++++++++++++-----------
 1 file changed, 28 insertions(+), 11 deletions(-)

diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c
index 5d6e96e32f..d34cf854ec 100644
--- a/ext/win32ole/win32ole.c
+++ b/ext/win32ole/win32ole.c
@@ -2208,6 +2208,32 @@ fole_free(self)
     return Qnil;
 }
 
+static VALUE
+ole_each_sub(pEnumV)
+    VALUE pEnumV;
+{
+    VARIANT variant;
+    VALUE obj = Qnil;
+    IEnumVARIANT *pEnum = (IEnumVARIANT *)pEnumV;
+    VariantInit(&variant);
+    while(pEnum->lpVtbl->Next(pEnum, 1, &variant, NULL) == S_OK) {
+        obj = ole_variant2val(&variant);
+        VariantClear(&variant);
+        VariantInit(&variant);
+	rb_yield(obj);
+    }
+    return Qnil;
+}
+
+static VALUE
+ole_ienum_free(pEnumV)
+    VALUE pEnumV;
+{
+    IEnumVARIANT *pEnum = (IEnumVARIANT *)pEnumV;
+    OLE_RELEASE(pEnum);
+    return Qnil;
+}
+
 /*
  * WIN32OLE#each {|i|...}
  * -----
@@ -2224,12 +2250,10 @@ fole_each(self)
     unsigned int argErr;
     EXCEPINFO excepinfo;
     DISPPARAMS dispParams;
-    VARIANT result, variant;
+    VARIANT result;
     HRESULT hr;
     IEnumVARIANT *pEnum = NULL;
 
-    VALUE obj;
-
     VariantInit(&result);
     dispParams.rgvarg = NULL;
     dispParams.rgdispidNamedArgs = NULL;
@@ -2262,15 +2286,8 @@ fole_each(self)
         ole_raise(hr, rb_eRuntimeError, "Fail to get IEnum Interface");
     }
 
-    VariantInit(&variant);
-    while(pEnum->lpVtbl->Next(pEnum, 1, &variant, NULL) == S_OK) {
-        obj = ole_variant2val(&variant);
-        rb_yield(obj);
-        VariantClear(&variant);
-        VariantInit(&variant);
-    }
     VariantClear(&result);
-    OLE_RELEASE(pEnum);
+    rb_ensure(ole_each_sub, (VALUE)pEnum, ole_ienum_free, (VALUE)pEnum);
     return Qnil;
 }