The Trunk: Installer-Core-mt.420.mcz

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

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

Name: Installer-Core-mt.420
Author: mt
Time: 17 April 2018, 7:58:38.188368 am
UUID: 655fca27-2464-f24a-b0ab-0188f5305935
Ancestors: Installer-Core-mt.419

Minor fix in the recent metacello-installer script, which now accounts for SSL errors.

=============== Diff against Installer-Core-mt.419 ===============

Item was changed:
  ----- Method: Installer class>>ensureRecentMetacello (in category 'scripts') -----
  ensureRecentMetacello
  "Copied and adapted from https://github.com/Metacello/metacello/blob/master/README.md"
 
+ ([((Smalltalk classNamed: 'WebClient') httpGet: 'https://www.google.de') isSuccess] on: Error do: [:err | false])
+ ifFalse: [^ self inform: 'Could not resolve "https://www.google.de".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs].
- ((Smalltalk classNamed: 'WebClient') httpGet: 'https://www.google.de') isSuccess
- ifFalse: [^ self inform: 'Could not to resolve "https://www.google.de".\\You need an internet connection and SSL support\to install (or update) Metacello.\\Please fix those issues and try again.' translated withCRs].
 
  (Smalltalk hasClassNamed: 'Metacello') ifFalse: [
  "Get the Metacello configuration (for Squeak users)"
  Installer gemsource
     project: 'metacello';
     addPackage: 'ConfigurationOfMetacello';
     install.
 
  "Bootstrap Metacello Preview, using mcz files (#'previewBootstrap' symbolic version"
  ((Smalltalk at: #ConfigurationOfMetacello) project
   version: #'previewBootstrap') load.
 
  "Load the Preview version of Metacello from GitHub"
  (Smalltalk at: #Metacello) new
   configuration: 'MetacelloPreview';
   version: #stable;
   repository: 'github://Metacello/metacello:configuration';
   load].
 
  "Now load latest version of Metacello"
  (Smalltalk at: #Metacello) new
   baseline: 'Metacello';
   repository: 'github://Metacello/metacello:master/repository';
   get.
  (Smalltalk at: #Metacello) new
   baseline: 'Metacello';
   repository: 'github://Metacello/metacello:master/repository';
   load.!