From 3f405a768880bf6c042c072fd833d7be47162034 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Sat, 11 Jul 2009 05:49:22 +0000
Subject: [PATCH] * ext/tk/tcltklib.c (get_obj_from_str): suppressed a warning.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@24033 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/tk/tcltklib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ext/tk/tcltklib.c b/ext/tk/tcltklib.c
index fe199ef483..39c85da72d 100644
--- a/ext/tk/tcltklib.c
+++ b/ext/tk/tcltklib.c
@@ -6132,7 +6132,7 @@ get_obj_from_str(str)
         /* binary string */
         return Tcl_NewByteArrayObj((const unsigned char *)s, RSTRING_LEN(str));
 #endif
-    } else if (strlen(s) != RSTRING_LEN(str)) {
+    } else if (memchr(s, 0, RSTRING_LEN(str))) {
         /* probably binary string */
         return Tcl_NewByteArrayObj((const unsigned char *)s, RSTRING_LEN(str));
     } else {