[Pkg] Installer: Installer-Core-kph.223.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.223.mcz

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

Name: Installer-Core-kph.223
Author: kph
Time: 16 September 2008, 11:40:46 pm
UUID: b40fa3cb-9010-4b6a-8df4-3771bf03dea4
Ancestors: Installer-Core-kph.222

Fix to load mcm's from a repository. Thanks to David Schaffer

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

Item was changed:
  ----- Method: Installer>>mcThing (in category 'monticello') -----
  mcThing
  
  	| loader files fileToLoad  version  count |
  
  	loader := self classMCVersionLoader new.
  	
  	1 to: self packages size do: [ :n |
  
  		self logCR: 'finding ', self package asString, '...'.
  		"several attempts to read files - repository readableFileNames sometimes fails"
  		count := 0. fileToLoad := nil.
  	
  		[count := count + 1.
  		 (fileToLoad = nil) and:[ count < 5 ] ] 
  			whileTrue: [
  							files := mc readableFileNames asSortedCollection: self mcSortFileBlock.
  							fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ].
  		].
  
  		version := mc versionFromFileNamed: fileToLoad.
+ 		(version isKindOf: MCConfiguration) 
+ 			ifTrue: [^version]
+ 			ifFalse:[version workingCopy repositoryGroup addRepository: mc].
- 		(version isKindOf: MCConfiguration) ifFalse:[
- 			version workingCopy repositoryGroup addRepository: mc].
  		self log: ' found ', version fileName, '...'.
  
    		loader addVersion: version.
  
  		packages removeFirst.
  	].
  
+ 	^ loader!
- 	^ loader
- !