re.c: fix up r55036

* re.c (match_values_at): fix regression at r55036.
  MatchData#values_at accepts Range.

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

1 files changed, 21 insertions, 3 deletions

diff --git a/re.c b/re.c
index 091168528f..ae8e2caf05 100644
--- a/re.c
+++ b/re.c
@@ -1921,6 +1921,7 @@ match_aref(int argc, VALUE *argv, VALUE match)
 static VALUE
 match_values_at(int argc, VALUE *argv, VALUE match)
 {
+    struct re_registers *regs = RMATCH_REGS(match);
     VALUE result;
     int i;
 
@@ -1928,14 +1929,31 @@ match_values_at(int argc, VALUE *argv, VALUE match)
     result = rb_ary_new2(argc);
 
     for (i=0; i<argc; i++) {
+	VALUE tmp;
+	int num;
+	long beg, len, olen;
 	if (FIXNUM_P(argv[i])) {
 	    rb_ary_push(result, rb_reg_nth_match(FIX2INT(argv[i]), match));
+	    continue;
 	}
-	else {
-	    int num = namev_to_backref_number(RMATCH_REGS(match), RMATCH(match)->regexp, argv[i]);
-	    if (num < 0) num = NUM2INT(argv[i]);
+	num = namev_to_backref_number(regs, RMATCH(match)->regexp, argv[i]);
+	if (num >= 0) {
 	    rb_ary_push(result, rb_reg_nth_match(num, match));
+	    continue;
+	}
+	/* check if idx is Range */
+	olen = regs->num_regs;
+	if (rb_range_beg_len(argv[i], &beg, &len, olen, 1)) {
+	    long j, end = olen < beg+len ? olen : beg+len;
+	    for (j = beg; j < end; j++) {
+		rb_ary_push(result, rb_reg_nth_match((int)j, match));
+	    }
+	    if (beg + len > j)
+		rb_ary_resize(result, RARRAY_LEN(result) + (beg + len) - j);
+	    continue;
 	}
+	tmp = rb_to_int(argv[i]);
+	rb_ary_push(result, rb_reg_nth_match(NUM2INT(tmp), match));
     }
     return result;
 }