diff options
-rw-r--r-- | ChangeLog | 4 | ||||
-rw-r--r-- | vm.c | 4 |
2 files changed, 7 insertions, 1 deletions
@@ -1,3 +1,7 @@ +Wed Jun 19 06:29:31 2013 Koichi Sasada <ko1@atdot.net> + + * vm.c (kwmerge_i): add WB. + Wed Jun 19 06:26:49 2013 Koichi Sasada <ko1@atdot.net> * hash.c: `st_update()' also has same issue of last fix. @@ -2174,7 +2174,9 @@ static int kwmerge_i(VALUE key, VALUE value, VALUE hash) { if (!SYMBOL_P(key)) Check_Type(key, T_SYMBOL); - st_update(RHASH_TBL(hash), key, kwmerge_ii, (st_data_t)value); + if (st_update(RHASH_TBL(hash), key, kwmerge_ii, (st_data_t)value) == 0) { /* !existing */ + OBJ_WRITTEN(hash, Qundef, value); + } return ST_CONTINUE; } |