diff options
author | Zoffix Znet <cpan@zoffix.com> | 2017-08-28 12:16:45 -0400 |
---|---|---|
committer | Zoffix Znet <cpan@zoffix.com> | 2017-08-28 12:16:45 -0400 |
commit | fa69fa4d1211a7da011b5f2a5c675fca9be091f8 (patch) | |
tree | db48b4ca66e31e65d0a4d19f57dd3cae8ea0bdc0 | |
parent | 03a6bd3f3ce48db1368004c6fe2278fceeaa3550 (diff) |
Fix crash when SSL option is not provided
Fixes #48
-rw-r--r-- | META6.json | 2 | ||||
-rw-r--r-- | lib/IRC/Client.pm6 | 2 | ||||
-rw-r--r-- | lib/IRC/Client/Server.pm6 | 2 |
3 files changed, 3 insertions, 3 deletions
@@ -2,7 +2,7 @@ "perl" : "6.c", "name" : "IRC::Client", "license" : "Artistic-2.0", - "version" : "3.007001", + "version" : "3.007002", "description" : "Extendable Internet Relay Chat client", "tags" : [ "Net", "IRC" ], "depends" : [ 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; |