From f8962a793fd9774c524c9f86e6f97902950a4a45 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 18 Sep 2003 13:57:53 +0000
Subject: * eval.c (proc_invoke): should push PROT_PCALL tag for orphans.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/trunk@4573 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'eval.c')

diff --git a/eval.c b/eval.c
index 56f33baab..ec0a03118 100644
--- a/eval.c
+++ b/eval.c
@@ -7029,7 +7029,7 @@ proc_invoke(proc, args, self, klass)
 
     PUSH_ITER(ITER_CUR);
     ruby_frame->iter = ITER_CUR;
-    PUSH_TAG(pcall ? PROT_PCALL : PROT_CALL);
+    PUSH_TAG((pcall || orphan) ? PROT_PCALL : PROT_CALL);
     state = EXEC_TAG();
     if (state == 0) {
 	proc_set_safe_level(proc);
-- 
cgit