[Pkg] Installer: Installer-Core-kph.232.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.232.mcz

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

Name: Installer-Core-kph.232
Author: kph
Time: 2 October 2008, 1:44:35 pm
UUID: 86105908-96e5-4490-bcea-91a1f4fe13c4
Ancestors: Installer-Core-kph.231

fix

=============== Diff against Installer-Core-kph.231 ===============

Item was changed:
  ----- Method: Installer>>webFindUrlToDownload (in category 'web install') -----
  webFindUrlToDownload
  
+ 	| delay retry |
- 	| delay |
  	delay := 0.
  	self class webSearchPath 
  		do: [ :pathSpec | 
  				| potentialUrl readPathSpec  |
  				readPathSpec := pathSpec value readStream.
  				potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]).
+ 				[ retry := false. pageDataStream := self urlGet: potentialUrl ] 
- 				[ pageDataStream := self urlGet: potentialUrl ] 
  						doWhileTrue: [ 	
  								(pageDataStream notNil and: [ pageDataStream size > 0 ]) 
  									ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') 
+ 													ifTrue: [ retry := true ]
  													ifFalse: [ pageDataStream reset. 
  																^ potentialUrl ] ].
  								(Delay forSeconds: (delay := delay + 5)) wait.
+ 								retry ]].
- 								true]].
  	^nil
  !