* dln.c (aix_loaderror): should not use member named 'errno' which

  might be a macro (e.g. on AIX).

* io.c (read_all): do not depend on lseek position.
  [ruby-dev:22026]

* eval.c (rb_eval): preserve $! value when retry happens in the
  rescue clause.  [ruby-talk:86697]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@5113 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 4 insertions, 4 deletions

diff --git a/eval.c b/eval.c
index d93423b485..046e1e1b0f 100644
--- a/eval.c
+++ b/eval.c
@@ -2856,6 +2856,7 @@ rb_eval(self, n)
 
 	    PUSH_TAG(PROT_NONE);
 	    if ((state = EXEC_TAG()) == 0) {
+	      retry_entry:
 		result = rb_eval(self, node->nd_head);
 	    }
 	    else if (rescuing) {
@@ -2864,11 +2865,10 @@ rb_eval(self, n)
 		}
 		else if (state == TAG_RETRY) {
 		    rescuing = state = 0;
-		    e_info = ruby_errinfo = Qnil;
-		    result = rb_eval(self, node->nd_head);
+		    ruby_errinfo = e_info;
+		    goto retry_entry;
 		}
 		else if (state != TAG_RAISE) {
-		    ruby_errinfo = e_info;
 		    result = prot_tag->retval;
 		}
 	    }
@@ -2882,7 +2882,6 @@ rb_eval(self, n)
 			state = 0;
 			rescuing = 1;
 			result = rb_eval(self, resq->nd_body);
-			ruby_errinfo = e_info;
 			break;
 		    }
 		    resq = resq->nd_head; /* next rescue */
@@ -2892,6 +2891,7 @@ rb_eval(self, n)
 		result = prot_tag->retval;
 	    }
 	    POP_TAG();
+	    if (state != TAG_RAISE) ruby_errinfo = e_info;
 	    if (state) {
 		if (state == TAG_NEXT) prot_tag->retval = result;
 		JUMP_TAG(state);