version 0.71v0_71

https://cache.ruby-lang.org/pub/ruby/1.0/ruby-0.71.tar.gz

Mon Apr  3 15:19:41 1995  Yukihiro Matsumoto  (matz@ix-02)

	* regexp.c(re_match): バグがあった．match_2を削除した時にenbugして
	  いたのだった．

Mon Mar 27 15:41:43 1995  Yukihiro Matsumoto  (matz@ix-02)

	* dict.c: Dict->Hashに全面的に移行．

Thu Mar 23 20:30:00 1995  Yukihiro Matsumoto  (matz@ix-02)

	* dbm.c,socket.c: extディレクトリに分離．

	* configure: dln周りのチェックの強化

	* dln.c: initの呼び出しをdlopen()版に合わせた．

Mon Mar 20 17:45:08 1995  Yukihiro Matsumoto  (matz@ix-02)

	* configure: autoconf 2.2に対応(一部)．

Fri Mar 17 15:56:44 1995  Yukihiro Matsumoto  (matz@ix-02)

	* dln.c: dlopenのあるマシンではそちらを使うように．ただし，ちゃん
	  と動いているかどうかは自信がない．

	* regex.c: virtual concatinationをやめた．

Thu Mar 16 11:32:57 1995  Yukihiro Matsumoto  (matz@ix-02)

	* version 0.70

	* eval.c,regex.c: gccでのコンパイルエラー．

	* io.c: inplace-editで拡張子が指定されない場合，もとのファイルを削
	  除する．

1 files changed, 4 insertions, 3 deletions

diff --git a/parse.y b/parse.y
index 12e6672ca1..1e560f109e 100644
--- a/parse.y
+++ b/parse.y
@@ -1034,7 +1034,7 @@ assoc_list	: /* none */
 		| args trailer
 		    {
 			if ($1->nd_alen%2 != 0) {
-			    Error("odd number list for Dict");
+			    Error("odd number list for Hash");
 			}
 			$$ = $1;
 		    }
@@ -2117,12 +2117,13 @@ read_escape(flag)
 	break;
 
       case 'c':
-	if (c == '?')
+	if ((c = nextc()) == '?')
 	    tokadd(0177);
 	else {
 	    if (islower(c))
 		c = toupper(c);
-	    tokadd(c ^ 64);
+	    c = c - '@';
+	    tokadd(c);
 	}
 	break;