From: ueno <ueno>
Date: Tue, 22 Jan 2008 23:43:02 +0000 (+0000)
Subject: More simplified.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=78364f9460ef09a9156ce473fe9e7b78028377d0;p=elisp%2Fepg.git

More simplified.
---

diff --git a/find-changes-by-mia b/find-changes-by-mia
index 14452a5..d3d1263 100755
--- a/find-changes-by-mia
+++ b/find-changes-by-mia
@@ -4,8 +4,7 @@ mia_authors = ARGV
 IO.popen('cvs log') do |io|
   io.read.split(/^=+\n/).each do |per_file|
     file = nil
-    per_file.scan(/^RCS file:\s+(.+),v$/) do |match|
-      file = match[0]
+    per_file.scan(/^RCS file:\s+(.+),v$/) do |file,|
       break
     end
     break unless file
@@ -17,8 +16,7 @@ IO.popen('cvs log') do |io|
 date:\s+(?:.+?);\s+\
 author:\s+(.+?);\s+\
 state:\s+(?:.+?);\s+\
-lines:\s+(.+)$/) do |match|
-        rev, author, lines = match
+lines:\s+(.+)$/) do |rev, author, lines|
         if mia_authors.include?(author)
           prev_rev = rev.sub(/\d+\z/) {|s| (s.to_i - 1).to_s}
           puts("cvs diff -u -r #{prev_rev} -r #{rev} #{base}\t# #{lines}")