aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPatrick Spek <p.spek@tyil.nl>2018-12-15 22:43:18 +0100
committerPatrick Spek <p.spek@tyil.nl>2018-12-15 22:43:18 +0100
commit453063fbc5e674e6277274c328de0bacdcff5cd3 (patch)
treeedc4a30f414c6b9cc6d64ecffe4ab2f6c58324d1
parent3e585499c15be2cfc1eab2ca8572010eb50b2233 (diff)
downloadIRC::Client-453063fbc5e674e6277274c328de0bacdcff5cd3.tar.gz
IRC::Client-453063fbc5e674e6277274c328de0bacdcff5cd3.tar.bz2
Add the reason for why the connection failed when :debug is True
-rw-r--r--lib/IRC/Client.pm62
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6
index 7406944..cd2348e 100644
--- a/lib/IRC/Client.pm6
+++ b/lib/IRC/Client.pm6
@@ -186,7 +186,7 @@ method !connect-socket ($server) {
$socket.then: sub ($prom) {
if $prom.status ~~ Broken {
$server.is-connected = False;
- $!debug and debug-print 'Could not connect', :out, :$server;
+ $!debug and debug-print "Could not connect: $prom.cause()", :out, :$server;
sleep 10;
$!socket-pipe.send: $server;
return;