From 54fec448f53826368426ca415bc4e15df9b4b817 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: [PATCH] * eval.c (proc_invoke): should push PROT_PCALL tag for
 orphans.

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

diff --git a/ChangeLog b/ChangeLog
index ab15b99842..6c8db575b7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Thu Sep 18 22:43:20 2003  Yukihiro Matsumoto  <matz@ruby-lang.org>
+
+	* eval.c (proc_invoke): should push PROT_PCALL tag for orphans.
+
+	* eval.c (proc_invoke): should update "result" for orphans.
+
 Thu Sep 18 20:30:17 2003  Tanaka Akira  <akr@m17n.org>
 
 	* lib/pathname.rb: update document.
diff --git a/eval.c b/eval.c
index 56f33baabe..ec0a03118b 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);