From fa69fa4d1211a7da011b5f2a5c675fca9be091f8 Mon Sep 17 00:00:00 2001
From: Zoffix Znet <cpan@zoffix.com>
Date: Mon, 28 Aug 2017 12:16:45 -0400
Subject: Fix crash when SSL option is not provided

Fixes #48
---
 lib/IRC/Client.pm6        | 2 +-
 lib/IRC/Client/Server.pm6 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index db1b4d4..1bf7235 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -48,7 +48,7 @@ submethod BUILD (
     my %servers = %$servers;
 
     my %all-conf = :$port,     :$password, :$host,     :$nick,     :$alias,
-                   :$username, :$userhost, :$userreal, :$channels;
+                   :$username, :$userhost, :$userreal, :$channels, :$ssl;
 
     %servers = '_' => {} unless %servers;
     for %servers.keys -> $label {
diff --git a/lib/IRC/Client/Server.pm6 b/lib/IRC/Client/Server.pm6
index 2952869..b7825ee 100644
--- a/lib/IRC/Client/Server.pm6
+++ b/lib/IRC/Client/Server.pm6
@@ -4,7 +4,7 @@ has         @.channels where .all ~~ Str|Pair;
 has         @.nick     where .all ~~ Str;
 has         @.alias    where .all ~~ Str|Regex;
 has Int     $.port     where 0 <= $_ <= 65535;
-has Bool    $.ssl;
+has Bool    $.ssl = False;
 has Str     $.ca-file;
 has Str     $.label;
 has Str     $.host;
-- 
cgit v1.1