Better phrasing for the delayed clone announce

diff --git a/clones.pl b/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;