* sample/mkproto.rb: ditto and fix bug.

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

ChangeLog

@@ -2,6 +2,8 @@ Fri Jul 26 16:01:16 2002  WATANABE Hirofumi  <eban@ruby-lang.org>
 
 	* ext/extmk.rb.in (create_makefile): use Regexp in gsub.
 
+	* sample/mkproto.rb: ditto and fix bug.
+
 Fri Jul 26 14:31:06 2002  Yukihiro Matsumoto  <matz@ruby-lang.org>
 
 	* random.c: replace with Mersenne Twister RNG.

sample/mkproto.rb

@@ -1,11 +1,11 @@
 $/ = nil
 while line = gets()
   if /^((void|VALUE|int|char *\*|ID|struct [\w_]+ *\*|st_table *\*) *)?\n([\w\d_]+)\(.*\)\n\s*((.+;\n)*)\{/ =~ line
-    $_ = $'
+    line = $'
     printf "%s %s(", $2, $3
     args = []
     for arg in $4.split(/;\n\s*/)
-      arg.gsub! ' +', ' '
+      arg.gsub!(/ +/, ' ')
       if arg =~ /,/
 	if arg =~ /(([^*]+) *\** *[\w\d_]+),/
 	  type = $2.strip