From 5014bfb50d911a9ad9b8069ed49db7666b101796 Mon Sep 17 00:00:00 2001
From: "Yukihiro \"Matz\" Matsumoto" <matz@ruby-lang.org>
Date: Fri, 19 Dec 2014 18:51:14 +0900
Subject: block_given? should return false on top-level; ref #2678

---
 src/kernel.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/kernel.c')

diff --git a/src/kernel.c b/src/kernel.c
index cb938f152..b6abfd265 100644
--- a/src/kernel.c
+++ b/src/kernel.c
@@ -189,6 +189,9 @@ mrb_f_block_given_p_m(mrb_state *mrb, mrb_value self)
     if (ci->proc->env && ci->proc->env->stack) {
       mrb_value *sp = ci->proc->env->stack;
 
+      /* top-level does not have block slot (alway false) */
+      if (sp == mrb->c->stbase)
+        return mrb_false_value();
       while (mrb->c->cibase < ci) {
         if (ci->stackent == sp) {
           break;
-- 
cgit v1.2.3