From 8f186a1d76ef5b73693b4e2cc2b3130a72512c21 Mon Sep 17 00:00:00 2001
From: usa <usa@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Mon, 26 Jan 2004 06:12:15 +0000
Subject: * sample/exyacc.rb: escape '}' to avoid warning.

git-svn-id: http://svn.ruby-lang.org/repos/ruby/branches/ruby_1_8@5557 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ChangeLog        | 4 ++++
 sample/exyacc.rb | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index c11de0b03..3cd704cf5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Mon Jan 26 15:11:47 2004  NAKAMURA Usaku  <usa@ruby-lang.org>
+
+	* sample/exyacc.rb: escape '}' to avoid warning.
+
 Mon Jan 26 12:47:17 2004  Hidetoshi NAGAI  <nagai@ai.kyutech.ac.jp>
 
 	* ext/tcltklib/tcltklib.c: define CONST84 when TCL_MAJOR_VERSION == 7
diff --git a/sample/exyacc.rb b/sample/exyacc.rb
index b8d49d630..5818825e2 100644
--- a/sample/exyacc.rb
+++ b/sample/exyacc.rb
@@ -10,10 +10,10 @@ while gets()
   $_ = $_[sbeg, send-sbeg]
   sub!(/.*\n/, "")
   gsub!(/'\{'/, "'\001'")
-  gsub!(/'}'/, "'\002'")
+  gsub!(/'\}'/, "'\002'")
   gsub!(%r{\*/}, "\003\003")
   gsub!(%r{/\*[^\003]*\003\003}, '')
-  while gsub!(/\{[^{}]*}/, ''); end
+  while gsub!(/\{[^{}]*\}/, ''); end
   gsub!(/'\001'/, "'{'")
   gsub!(/'\002'/, "'}'")
   while gsub!(/^[ \t]*\n(\s)/, '\1'); end
-- 
cgit