move PIPE signal handler to miniloop and update timeout param in t/timeout.t to match...

diff --git a/lib/Object/Remote/Connection.pm b/lib/Object/Remote/Connection.pm
index 66d4c2e..7d64071 100644 (file)
--- a/lib/Object/Remote/Connection.pm
+++ b/lib/Object/Remote/Connection.pm
@@ -18,10 +18,7 @@ use JSON::PP qw(encode_json);
 use Moo;
 use Carp qw(croak);
 
-BEGIN { 
-  router()->exclude_forwarding;
-  $SIG{PIPE} = sub { log_debug { "Got a PIPE signal" } };
-}
+BEGIN { router()->exclude_forwarding }
 
 END {
   log_debug { "Killing all child processes in the process group" };

diff --git a/lib/Object/Remote/MiniLoop.pm b/lib/Object/Remote/MiniLoop.pm
index cf572d6..8465c96 100644 (file)
--- a/lib/Object/Remote/MiniLoop.pm
+++ b/lib/Object/Remote/MiniLoop.pm
@@ -5,7 +5,11 @@ use Time::HiRes qw(time);
 use Object::Remote::Logging qw( :log :dlog router );
 use Moo;
 
-BEGIN { router()->exclude_forwarding }
+BEGIN { 
+  $SIG{PIPE} = sub { log_debug { "Got a PIPE signal" } };
+  
+  router()->exclude_forwarding
+}
 
 # this is ro because we only actually set it using local in sub run
 has is_running => (is => 'ro', clearer => 'stop');

diff --git a/t/timeout.t b/t/timeout.t
index c205b93..3b208d7 100644 (file)
--- a/t/timeout.t
+++ b/t/timeout.t
@@ -7,7 +7,7 @@ use Object::Remote;
 use Object::Remote::Connector::Local;
 
 my $connector = Object::Remote::Connector::Local->new(
-  timeout => { after => 0.1 },
+  timeout => 0.1,
   perl_command => [ 'perl', '-e', 'sleep 3' ],
 );