From 26feae3958eff107ce0ff297981f2ed515a19f16 Mon Sep 17 00:00:00 2001
From: nobu <nobu@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Tue, 13 Aug 2013 13:13:02 +0000
Subject: random.c: coerce before check negative

* random.c (rb_random_ulong_limited): coerce before check negative.
  [Fixes GH-379]

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

(limited to 'random.c')

diff --git a/random.c b/random.c
index 6a42e24f34..cfd2f6275a 100644
--- a/random.c
+++ b/random.c
@@ -851,7 +851,7 @@ rb_random_ulong_limited(VALUE obj, unsigned long limit)
     if (!rnd) {
 	extern int rb_num_negative_p(VALUE);
 	VALUE lim = ulong_to_num_plus_1(limit);
-	VALUE v = rb_funcall2(obj, id_rand, 1, &lim);
+	VALUE v = rb_to_int(rb_funcall2(obj, id_rand, 1, &lim));
 	unsigned long r = NUM2ULONG(v);
 	if (rb_num_negative_p(v)) {
 	    rb_raise(rb_eRangeError, "random number too small %ld", r);
-- 
cgit v1.2.3