1 files changed, 7 insertions, 7 deletions
diff --git a/ext/tk/sample/tkfrom.rb b/ext/tk/sample/tkfrom.rb
index ba0e547799..8c3efb8137 100644
--- a/ext/tk/sample/tkfrom.rb
+++ b/ext/tk/sample/tkfrom.rb
@@ -20,11 +20,11 @@ class Mail
   def initialize(f)
     @header = {}
     @body = []
-    while f.gets()
+    while line = f.gets()
       $_.chop!
-      next if /^From /		# skip From-line  
-      break if /^$/		# end of header
-      if /^(\S+):\s*(.*)/
+      next if /^From / =~ line	# skip From-line  
+      break if /^$/ =~ line	# end of header
+      if /^(\S+):\s*(.*)/ =~ line
 	@header[attr = $1.capitalize] = $2
       elsif attr
 	sub(/^\s*/, '')
@@ -32,10 +32,10 @@ class Mail
       end
     end
 
-    return if ! $_
+    return unless $_
 
-    while f.gets()
-      break if /^From /
+    while line = f.gets()
+      break if /^From / =~ line
       @body.push($_)
     end
   end