aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorZoffix Znet <zoffixznet@users.noreply.github.com>2018-12-15 19:14:32 -0500
committerGitHub <noreply@github.com>2018-12-15 19:14:32 -0500
commit48fdaea04a137f6b6ad3cda3383ab718340fc066 (patch)
treeedc4a30f414c6b9cc6d64ecffe4ab2f6c58324d1
parent3e585499c15be2cfc1eab2ca8572010eb50b2233 (diff)
parent453063fbc5e674e6277274c328de0bacdcff5cd3 (diff)
downloadIRC::Client-48fdaea04a137f6b6ad3cda3383ab718340fc066.tar.gz
IRC::Client-48fdaea04a137f6b6ad3cda3383ab718340fc066.tar.bz2
Merge pull request #60 from Tyil/connection-failed-reason
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;