summaryrefslogtreecommitdiff
path: root/eval_error.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval_error.c')
-rw-r--r--eval_error.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/eval_error.c b/eval_error.c
index fad8c22..aa9d10f 100644
--- a/eval_error.c
+++ b/eval_error.c
@@ -127,9 +127,9 @@ error_print(void)
}
eclass = CLASS_OF(errinfo);
- if (eclass != Qundef) {
- e = rb_funcall(errinfo, rb_intern("message"), 0, 0);
- StringValue(e);
+ if (eclass != Qundef &&
+ (e = rb_check_funcall(errinfo, rb_intern("message"), 0, 0)) != Qundef &&
+ (RB_TYPE_P(e, T_STRING) || !NIL_P(e = rb_check_string_type(e)))) {
einfo = RSTRING_PTR(e);
elen = RSTRING_LEN(e);
}