]> git.vpit.fr Git - perl/scripts/xchat.git/commitdiff
Better phrasing for the delayed clone announce
authorVincent Pit <vince@profvince.com>
Fri, 20 Nov 2015 15:32:41 +0000 (13:32 -0200)
committerVincent Pit <vince@profvince.com>
Fri, 20 Nov 2015 15:32:41 +0000 (13:32 -0200)
clones.pl

index fded636bd38c8aee60a92426d5ddb911972026ab..46ca4d648815aada8713f28f8c029bbc70d5adcd 100755 (executable)
--- a/clones.pl
+++ b/clones.pl
@@ -188,15 +188,13 @@ hook_server 'JOIN', sub {
  my $clones = add $nick, host($userhost), $serv, $chan;
  return EAT_NONE unless $clones > 0;
 
local_context $chan, $serv => sub {
my $printer = sub {
   print $ph clone_enter_str $userhost, $nick, $clones;
   1
- } or do {
-  delay JOIN_DELAY, sub {
-   local_context $chan, $serv => sub {
-    print $ph clone_enter_str $userhost, $nick, $clones;
-   }
-  }
+ };
+
+ local_context $chan, $serv, $printer or delay JOIN_DELAY, sub {
+  local_context $chan, $serv, $printer;
  };
 
  return EAT_NONE;