[Pkg] The Trunk: Installer-Core-mt.433.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Installer-Core to project The Trunk:
http://source.squeak.org/trunk/Installer-Core-mt.433.mcz

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

Name: Installer-Core-mt.433
Author: mt
Time: 21 June 2019, 2:48:37.485774 pm
UUID: a6e2501c-d477-814a-802e-d2eeacb08b6b
Ancestors: Installer-Core-fn.432

Fixes bug in Metacello update code in Installer. Only occurred when calling #ensureRecentMetacello in an image that has Metacello installed already.

=============== Diff against Installer-Core-fn.432 ===============

Item was changed:
  ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') -----
  ensureRecentMetacello
  	"Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md"
  	
  	| metacello |
  	((Smalltalk classNamed: #WebClient)
  		ifNil: [ false ]
  		ifNotNil: [ :webClient | 
  			[ (webClient httpHead: 'https://github.com') isSuccess ] 
  				on: Error
  				do: [ false ] ])
  		ifFalse: [ ^self inform: 'Could not connect to "https://github.com".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs ].
  	
  	self isMetacelloInstalled ifFalse: [
  		"Prepare a clean environment for it."
  		Smalltalk globals removeKey: #Metacello.
  		"Get the Metacello configuration (for Squeak users)"
  		Installer gemsource
  			project: 'metacello';
  			addPackage: 'ConfigurationOfMetacello';
  			install.
  
  		"Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version"
  		((Smalltalk classNamed: #ConfigurationOfMetacello) project 
+ 			version: #'previewBootstrap') load].
- 			version: #'previewBootstrap') load.
  
+ 	metacello := Smalltalk classNamed: #Metacello.
- 		metacello := Smalltalk classNamed: #Metacello ].
  
  	"Now load latest version of Metacello"
  	metacello new
  		baseline: 'Metacello';
  		repository: 'github://Metacello/metacello:master/repository';
  		get.
  	metacello new
  		baseline: 'Metacello';
  		repository: 'github://Metacello/metacello:master/repository';
  		load: #('default' 'Metacello-Help').
  !