[Pkg] The Trunk: Network-ul.49.mcz

[commits at source.squeak.org]

Levente Uzonyi uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-ul.49.mcz

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

Name: Network-ul.49
Author: ul
Time: 11 January 2010, 8:27:37.48 am
UUID: 760d179c-6926-424c-9fbf-57dc80114faa
Ancestors: Network-nice.48

- code critics

=============== Diff against Network-nice.48 ===============

Item was changed:
  ----- Method: ServerDirectory>>exists (in category 'file directory') -----
  exists
  	"It is difficult to tell if a directory exists.  This is ugly, but it works for writable directories.  http: will fall back on ftp for this"
  
  	| probe success |
  	success := false.
  	self isTypeFile ifTrue: [
  		self entries size > 0 ifTrue: [^ true].
  		probe := self newFileNamed: 'withNoName23'. 
  		probe ifNotNil: [
  			probe close.
  			probe directory deleteFileNamed: probe localName].
+ 		^probe notNil].
- 		^success := probe notNil].
  	[client := self openFTPClient.
  	[client pwd]
  		ensure: [self quit].
  		success := true]
  		on: Error
  		do: [:ex | ].
  	^success!