From 08ec02b92b45464df3dbf79022bb15b853ab0428 Mon Sep 17 00:00:00 2001
From: matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Thu, 28 Dec 2000 05:00:47 +0000
Subject: changes from personal modifies -- matz

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1084 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 sample/uumerge.rb | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'sample/uumerge.rb')

diff --git a/sample/uumerge.rb b/sample/uumerge.rb
index 418323c439..2576bcb864 100644
--- a/sample/uumerge.rb
+++ b/sample/uumerge.rb
@@ -8,8 +8,8 @@ end
 $sawbegin = 0
 $sawend = 0
 
-while gets()
-  if /^begin\s*(\d*)\s*(\S*)/
+while line = gets()
+  if /^begin\s*(\d*)\s*(\S*)/ =~ line
     $mode, $file = $1, $2
     $sawbegin+=1
     if out_stdout
@@ -25,15 +25,15 @@ end
 raise "missing begin" unless $sawbegin
 
 out.binmode
-while gets()
-  if /^end/
+while line = gets()
+  if /^end/ =~ line
     $sawend+=1
     out.close unless out_stdout
     File.chmod $mode.oct, $file unless out_stdout
     next
   end
-  sub(/[a-z]+$/, "")		# handle stupid trailing lowercase letters
-  next if /[a-z]/
+  line.sub!(/[a-z]+$/, "")	# handle stupid trailing lowercase letters
+  next if /[a-z]/ =~ line
   next if !(((($_[0] - 32) & 077) + 2) / 3 == $_.length / 4)
   out << $_.unpack("u") if $sawbegin > $sawend
 end
-- 
cgit v1.2.3