comment the ::Next code a bit

diff --git a/lib/Tak/Daemon/DaemonService.pm b/lib/Tak/Daemon/DaemonService.pm
index d608dca..80f0f08 100644 (file)
--- a/lib/Tak/Daemon/DaemonService.pm
+++ b/lib/Tak/Daemon/DaemonService.pm
@@ -31,8 +31,10 @@ sub handle_become_successor {
   my ($self) = @_;
   my $done;
   $self->set_done_cb(sub { $done = 1 });
+  # because this is funnier than "no warnings 'once'". Also because
+  # I don't have to stop and think "what else is in this lexical scope?"
   $Tak::STDIOSetup::Next = $Tak::STDIOSetup::Next = sub {
-    my $x = $self; # close over
+    my $x = $self; # close over while evading void context warnings
     $0 = 'tak-daemon-node';
     Tak->loop_until($done);
   };