* process.c (proc_setgroups): cleanup.

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@31070 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,7 @@
+Tue Mar  8 23:49:45 2011  KOSAKI Motohiro  <kosaki.motohiro@gmail.com>
+
+	* process.c (proc_setgroups): cleanup.
+
 Tue Mar  8 23:40:30 2011  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* test/misc/test_ruby_mode.rb: test for ruby-mode.el.

process.c

@@ -4639,10 +4639,10 @@ proc_setgroups(VALUE obj, VALUE ary)
 
     Check_Type(ary, T_ARRAY);
 
-    if (RARRAY_LEN(ary) > maxgroups())
+    ngroups = RARRAY_LENINT(ary);
+    if (ngroups > maxgroups())
 	rb_raise(rb_eArgError, "too many groups, %d max", maxgroups());
 
-    ngroups = RARRAY_LENINT(ary);
     groups = ALLOCA_N(rb_gid_t, ngroups);
 
     for (i = 0; i < ngroups; i++) {