aboutsummaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2017-08-28 12:16:45 -0400
committerZoffix Znet <cpan@zoffix.com>2017-08-28 12:16:45 -0400
commitfa69fa4d1211a7da011b5f2a5c675fca9be091f8 (patch)
treedb48b4ca66e31e65d0a4d19f57dd3cae8ea0bdc0 /lib
parent03a6bd3f3ce48db1368004c6fe2278fceeaa3550 (diff)
Fix crash when SSL option is not provided
Fixes #48
Diffstat (limited to 'lib')
-rw-r--r--lib/IRC/Client.pm62
-rw-r--r--lib/IRC/Client/Server.pm62
2 files changed, 2 insertions, 2 deletions
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;