From 08ec02b92b45464df3dbf79022bb15b853ab0428 Mon Sep 17 00:00:00 2001 From: matz 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 --- ext/tk/sample/tkbiff.rb | 16 ++++++++-------- ext/tk/sample/tkfrom.rb | 14 +++++++------- 2 files changed, 15 insertions(+), 15 deletions(-) (limited to 'ext/tk/sample') diff --git a/ext/tk/sample/tkbiff.rb b/ext/tk/sample/tkbiff.rb index d2d7bf7beb..ac27184437 100644 --- a/ext/tk/sample/tkbiff.rb +++ b/ext/tk/sample/tkbiff.rb @@ -38,11 +38,11 @@ class Mail def initialize(f) @header = {} @body = [] - while f.gets() - $_.chop! - next if /^From / # skip From-line - break if /^$/ # end of header - if /^(\S+):\s*(.*)/ + while line = f.gets() + line.chop! + 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*/, '') @@ -50,10 +50,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 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 -- cgit v1.2.3