From 8767705eb238d7c2391c5cce3c2945db99fc0c24 Mon Sep 17 00:00:00 2001 From: nagachika Date: Sat, 9 Mar 2013 14:52:33 +0000 Subject: merge revision(s) 39376: [Backport #7903] * random.c (rb_random_ulong_limited): fix error message for negative value. [ruby-dev:47061] [Bug #7903] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_2_0_0@39674 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- random.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'random.c') diff --git a/random.c b/random.c index 6e635d912f..9b62cc1add 100644 --- a/random.c +++ b/random.c @@ -947,9 +947,13 @@ rb_random_ulong_limited(VALUE obj, unsigned long limit) { rb_random_t *rnd = try_get_rnd(obj); if (!rnd) { + extern int rb_num_negative_p(VALUE); VALUE lim = ULONG2NUM(limit); VALUE v = 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); + } if (r > limit) { rb_raise(rb_eRangeError, "random number too big %ld", r); } -- cgit v1.2.3