The Trunk: Network-eem.92.mcz

Eliot Miranda uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-eem.92.mcz

==================== Summary ====================

Name: Network-eem.92
Author: eem
Time: 22 October 2010, 10:37:43.088 am
UUID: b673bf6a-f14f-4975-b1c4-edd30eeb521d
Ancestors: Network-nice.91

fix an unused block slip in FTPClient>>lookForCode:ifDifferent:.

=============== Diff against Network-nice.91 ===============

Item was changed:
  ----- Method: FTPClient>>lookForCode:ifDifferent: (in category 'private protocol') -----
  lookForCode: code ifDifferent: handleBlock
  "We are expecting a certain numeric code next.  
  However, in the FTP protocol, multiple lines are allowed.  
  If the response is multi-line, the fourth character of the first line is a  
  $- and the last line repeats the numeric code but the code is followed by
  a space. So it's possible that there are more lines left of the last response that
  we need to throw away. We use peekForAll: so that we don't discard the
  next response that is not a continuation line."
 
 
  "check for multi-line response"
  (self lastResponse size > 3
  and: [(self lastResponse at: 4) = $-])
+ ifTrue: "Discard continuation lines."
- ifTrue: ["Discard continuation lines."
  [ | headToDiscard |
  headToDiscard := self lastResponse first: 4.
  [[self stream peekForAll: headToDiscard]
  whileTrue: [self stream nextLine]]
  on: Exception
+ do: [:ex | ^handleBlock value: nil]].
- do: [:ex | ^handleBlock value: nil]]].
  ^ super lookForCode: code ifDifferent: handleBlock!