diff options
| author | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2000-12-28 05:00:47 +0000 |
|---|---|---|
| committer | matz <matz@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2000-12-28 05:00:47 +0000 |
| commit | 08ec02b92b45464df3dbf79022bb15b853ab0428 (patch) | |
| tree | 571574af57859810d146f28177c240f1fe04e4f7 /sample/uumerge.rb | |
| parent | ceec42bf8c4e350d02d11b84adf9b8ebf7b4af47 (diff) | |
| download | ruby-08ec02b92b45464df3dbf79022bb15b853ab0428.tar.gz | |
changes from personal modifies -- matz
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1084 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
Diffstat (limited to 'sample/uumerge.rb')
| -rw-r--r-- | sample/uumerge.rb | 12 |
1 files changed, 6 insertions, 6 deletions
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 |