X-Git-Url: http://git.vpit.fr/?p=perl%2Fscripts%2Fxchat.git;a=blobdiff_plain;f=clones.pl;fp=clones.pl;h=46ca4d648815aada8713f28f8c029bbc70d5adcd;hp=fded636bd38c8aee60a92426d5ddb911972026ab;hb=b87fc463b2f4f807fc7860438eed18a00f5c0e12;hpb=338fdb0218fb3526190b88852b71aad90534d2a1

diff --git a/clones.pl b/clones.pl
index fded636..46ca4d6 100755
--- 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;