From 0fb0d42369a02071e2dec4fb3cfd137262b192f1 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 24 May 2001 06:10:36 +0000
Subject: * eval.c (rb_yield_0): need argument adjustment for C defined  
 blocks too.

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

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index 5116e90347..cc21c7c606 100644
--- a/eval.c
+++ b/eval.c
@@ -3608,6 +3608,13 @@ rb_yield_0(val, self, klass, acheck)
 	POP_TAG();
 	if (state) goto pop_state;
     }
+    else {
+	/* argument adjust for proc_call etc. */
+	if (acheck && val != Qundef &&
+	    TYPE(val) == T_ARRAY && RARRAY(val)->len == 1) {
+	    val = RARRAY(val)->ptr[0];
+	}
+    }
 
     PUSH_ITER(block->iter);
     PUSH_TAG(PROT_NONE);
-- 
cgit v1.2.3