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

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

Name: Installer-Core-kph.316
Author: kph
Time: 12 March 2009, 11:36:58 pm
UUID: af4b1cde-0f5e-11de-987b-000a95edb42a
Ancestors: Installer-Core-kph.315

changed a sender of ifNotNilDo:



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

Item was changed:
  ----- Method: Installer>>changeSetNamed: (in category 'utils') -----
  changeSetNamed: aName
  
  	(ChangeSet respondsTo: #named:)
+ 		ifTrue: [ ^ ChangeSet named: aName ].
- 		ifTrue: [ ^ChangeSet named: aName ].
  		
  	^ ChangeSorter changeSetNamed: aName.!

Item was changed:
  ----- Method: InstallerMantis>>validChangeSetName: (in category 'action report') -----
  validChangeSetName: aFileName
  
  	| csn prefix |
  
  	csn := super validChangeSetName: aFileName.
- 	
  	prefix := 'M' , self bug asString.
+ 
+ 	csn := csn replaceAll: ('-', prefix) with: ''.
+ 	csn := csn replaceAll: (prefix,'-') with: ''.
+ 	csn := csn replaceAll: prefix with: ''.
+ 	
+ 	^ prefix, '-', csn 	
- 	
- 	^ (csn beginsWith: prefix) 
- 		ifTrue: [ csn ]
- 		ifFalse: [ prefix, '-', (csn replaceAll: prefix with: '') ].
- 		
  	!

Item was changed:
  ----- Method: Installer>>ditchOldChangeSetFor: (in category 'utils') -----
  ditchOldChangeSetFor: aFileName 
  
+ 	| changeSetName changeSet |
- 	| changeSetName |
   	changeSetName := (self validChangeSetName: aFileName) sansPeriodSuffix.
+ 	changeSet := self changeSetNamed: changeSetName.
+ 	
+ 	changeSet ifNotNil: [
+ 		
+ 		(self logCR:'Removing old change set ', changeSetName) cr.
+ 		self  removeChangeSet: changeSet 
+ 	].!
- 	(self changeSetNamed: changeSetName)
- 		ifNotNilDo: [:changeSet |
- 				(self logCR:'Removing old change set ', changeSetName) cr.
- 				self  removeChangeSet: changeSet ].!