From ad8ab9c0132fd5b90187b1ba2825d1fd9eaebe14 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 28 Jul 2011 03:32:48 +0000
Subject: * ext/dl/cptr.c (rb_dlptr_s_to_ptr): use rb_check_funcall.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@32719 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/dl/cptr.c | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'ext/dl/cptr.c')

diff --git a/ext/dl/cptr.c b/ext/dl/cptr.c
index 02535f3949..9a471ff852 100644
--- a/ext/dl/cptr.c
+++ b/ext/dl/cptr.c
@@ -597,7 +597,7 @@ rb_dlptr_size_get(VALUE self)
 static VALUE
 rb_dlptr_s_to_ptr(VALUE self, VALUE val)
 {
-    VALUE ptr, wrap = val;
+    VALUE ptr, wrap = val, vptr;
 
     if (RTEST(rb_obj_is_kind_of(val, rb_cIO))){
 	rb_io_t *fptr;
@@ -610,8 +610,7 @@ rb_dlptr_s_to_ptr(VALUE self, VALUE val)
 	char *str = StringValuePtr(val);
 	ptr = rb_dlptr_new(str, RSTRING_LEN(val), NULL);
     }
-    else if (rb_respond_to(val, id_to_ptr)){
-	VALUE vptr = rb_funcall(val, id_to_ptr, 0);
+    else if ((vptr = rb_check_funcall(val, id_to_ptr, 0, 0)) != Qundef){
 	if (rb_obj_is_kind_of(vptr, rb_cDLCPtr)){
 	    ptr = vptr;
 	    wrap = 0;
-- 
cgit v1.2.3