From 029c43c63b938c991a10cf27eb75907bc6d8623e Mon Sep 17 00:00:00 2001 From: Zoffix Znet Date: Mon, 8 Aug 2016 10:15:19 -0400 Subject: Emit irc-started before any connection is made --- Changes | 3 +++ META6.json | 2 +- lib/IRC/Client.pm6 | 2 +- 3 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 0aabb3e..200152a 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ Revision history for IRC::Client +3.006002 2016-08-08 + - Emit irc-started before any connection is made + 3.006001 2016-08-07 - Add `:alias` feature (#22) diff --git a/META6.json b/META6.json index 3ea5c8e..af98567 100644 --- a/META6.json +++ b/META6.json @@ -1,7 +1,7 @@ { "perl" : "6.c", "name" : "IRC::Client", - "version" : "3.006001", + "version" : "3.006002", "description" : "Extendable Internet Relay Chat client", "depends" : [ ], diff --git a/lib/IRC/Client.pm6 b/lib/IRC/Client.pm6 index 34e6f54..3879ac9 100644 --- a/lib/IRC/Client.pm6 +++ b/lib/IRC/Client.pm6 @@ -119,8 +119,8 @@ method run { CATCH { default { warn $_; warn .backtrace } } } - self!connect-socket: $_ for %!servers.values; .irc-started for self!plugs-that-can('irc-started'); + self!connect-socket: $_ for %!servers.values; loop { my $s = $!socket-pipe.receive; self!connect-socket: $s unless $s.has-quit; -- cgit v1.1