nobu	2009-01-11 09:47:32 +0900 (Sun, 11 Jan 2009)

  New Revision: 21424

  http://svn.ruby-lang.org/cgi-bin/viewvc.cgi?view=rev&revision=21424

  Log:
    * hash.c (rb_hash_s_create): set nil as the value if assoc length
      is not enough.  [ruby-core:21249]

  Modified files:
    trunk/ChangeLog
    trunk/hash.c

Index: ChangeLog
===================================================================
--- ChangeLog	(revision 21423)
+++ ChangeLog	(revision 21424)
@@ -1,3 +1,8 @@
+Sun Jan 11 09:47:30 2009  Nobuyoshi Nakada  <nobu@r...>
+
+	* hash.c (rb_hash_s_create): set nil as the value if assoc length
+	  is not enough.  [ruby-core:21249]
+
 Sat Jan 10 21:17:28 2009  Tanaka Akira  <akr@f...>
 
 	* ext/socket/mkconstants.rb: don't generate unintended newlines.
Index: hash.c
===================================================================
--- hash.c	(revision 21423)
+++ hash.c	(revision 21424)
@@ -348,10 +348,16 @@
 	    hash = hash_alloc(klass);
 	    for (i = 0; i < RARRAY_LEN(tmp); ++i) {
 		VALUE v = rb_check_array_type(RARRAY_PTR(tmp)[i]);
-		
+		VALUE key, val = Qnil;
+
 		if (NIL_P(v)) continue;
-		if (RARRAY_LEN(v) < 1 || 2 < RARRAY_LEN(v)) continue;
-		rb_hash_aset(hash, RARRAY_PTR(v)[0], RARRAY_PTR(v)[1]);
+		switch (RARRAY_LEN(v)) {
+		  case 2:
+		    val = RARRAY_PTR(v)[1];
+		  case 1:
+		    key = RARRAY_PTR(v)[0];
+		    rb_hash_aset(hash, key, val);
+		}
 	    }
 	    return hash;
 	}

--
ML: ruby-changes@q...
Info: http://www.atdot.net/~ko1/quickml/