found location of hang; make annotations; added more log lines

[scpubgit/Object-Remote.git] / lib / Object / Remote / ConnectionServer.pm

diff --git a/lib/Object/Remote/ConnectionServer.pm b/lib/Object/Remote/ConnectionServer.pm
index 85869d0..639d456 100644 (file)
--- a/lib/Object/Remote/ConnectionServer.pm
+++ b/lib/Object/Remote/ConnectionServer.pm
@@ -57,6 +57,9 @@ sub _listen_ready {
   )->${\$self->connection_callback};
   $f->on_ready(sub { undef($c) });
   $c->ready_future->done;
+  #TODO see if this runs on the controller or the remote node 
+  #if this runs on the controller a poorly behaved remote node
+  #could cause the print() to block but it's a very low probability
   print $new "Shere\n" or die "Couldn't send to new socket: $!";
   return $c;
 }