From 96b19c48a5dee648b51b72e63c3ec0fed90caaff Mon Sep 17 00:00:00 2001
From: knu <knu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 10 Jun 2010 05:51:12 +0000
Subject: [PATCH] * ext/dl/dl.c (rb_dl_strdup): strdup() only allocates a
 buffer of   strlen()+1 bytes. [Bug #2794]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@28250 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog   | 5 +++++
 ext/dl/dl.c | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/ChangeLog b/ChangeLog
index c8af197958..e94661fc3d 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Thu Jun 10 14:45:28 2010  KOSAKI Motohiro  <kosaki.motohiro@gmail.com>
+
+	* ext/dl/dl.c (rb_dl_strdup): strdup() only allocates a buffer of
+	  strlen()+1 bytes. [Bug #2794]
+
 Tue Jun  8 18:32:47 2010  URABE Shyouhei  <shyouhei@ruby-lang.org>
 
 	* configure.in (USE_WINSOCK2): ws2tcpip.h needs listed here.
diff --git a/ext/dl/dl.c b/ext/dl/dl.c
index 5813adc58b..f11b69c5a5 100644
--- a/ext/dl/dl.c
+++ b/ext/dl/dl.c
@@ -588,7 +588,7 @@ VALUE
 rb_dl_strdup(VALUE self, VALUE str)
 {
   SafeStringValue(str);
-  return rb_dlptr_new(strdup(RSTRING(str)->ptr), RSTRING(str)->len, dlfree);
+  return rb_dlptr_new(strdup(RSTRING(str)->ptr), strlen(RSTRING(str)->ptr)+1, dlfree);
 }
 
 static VALUE