[ruby-dev:2852] Re: convert Perl's t/regexp.t to ruby

まつもと ゆきひろです

In message "[ruby-dev:2844] Re: convert Perl's t/regexp.t to ruby"
    on 98/06/11, Inaba Hiroto <[e-mail]> writes:

|残念ですが、まだです。

そうですか，残念です．

|perl5.004_65のt/op/re_testによるチェックでは(_66はまだ取ってきてないの
|です)あきらかなバグはなくなりました。「カッコが閉じる前のその中での
|backref」にも、ある程度対応されたのでしょうか？その分のnot okも減りま
|した。

若干対応しましたが，Perlに合わせる意図はなかったので減ったの
は意外ですね．

|しかし、まだ以下の不具合があります。

あら？ 単純なチェックミスでした．こんな感じ．

これでずいぶんバグが見つかりましたね．
稲葉さん，どうもありがとうございます．

diff -w -u -1 -r1.1.1.2.2.21 regex.c
--- regex.c	1998/06/08 01:40:02	1.1.1.2.2.21
+++ regex.c	1998/06/11 09:17:36
@@ -1672,3 +1672,2 @@
 	    GET_UNSIGNED_NUMBER(upper_bound);
-	    if (upper_bound < 0) upper_bound = RE_DUP_MAX;
 	  }
@@ -1681,4 +1680,5 @@
 
-	  if (lower_bound > RE_DUP_MAX || upper_bound > RE_DUP_MAX)
+	  if (lower_bound >= RE_DUP_MAX || upper_bound >= RE_DUP_MAX)
 	    FREE_AND_RETURN(stackb, "too big quantifier in {,}");
+	  if (upper_bound < 0) upper_bound = RE_DUP_MAX;
 	  if (lower_bound > upper_bound)