aboutsummaryrefslogtreecommitdiff
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
parent03a6bd3f3ce48db1368004c6fe2278fceeaa3550 (diff)
downloadirc-client-fa69fa4d1211a7da011b5f2a5c675fca9be091f8.tar.gz
irc-client-fa69fa4d1211a7da011b5f2a5c675fca9be091f8.tar.bz2
Fix crash when SSL option is not provided
Fixes #48
-rw-r--r--META6.json2
-rw-r--r--lib/IRC/Client.pm62
-rw-r--r--lib/IRC/Client/Server.pm62
3 files changed, 3 insertions, 3 deletions
diff --git a/META6.json b/META6.json
index 090acc3..1461b5b 100644
--- a/META6.json
+++ b/META6.json
@@ -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;