X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FRole%2FConnector%2FPerlInterpreter.pm;h=0a7ad67967dc6e150f4db7c3e4550305e95a4e94;hp=16bf6a6db81405a898f743965266319f3ac5ca1f;hb=5add5e29851e82862e4d8f6d67dfce559f6685ce;hpb=d2eadebbdb4416f421ffd5298c782fdc32f388e7 diff --git a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm index 16bf6a6..0a7ad67 100644 --- a/lib/Object/Remote/Role/Connector/PerlInterpreter.pm +++ b/lib/Object/Remote/Role/Connector/PerlInterpreter.pm @@ -4,7 +4,7 @@ use IPC::Open2; use IPC::Open3; use IO::Handle; use Symbol; -use Object::Remote::Logging qw( :log :dlog router ); +use Object::Remote::Logging qw(:log :dlog router); use Object::Remote::ModuleSender; use Object::Remote::Handle; use Object::Remote::Future; @@ -25,6 +25,8 @@ has connection_id => (is => 'rwp'); #of the child will be connected to stderr of the parent has stderr => ( is => 'rw', default => sub { undef } ); +BEGIN { router()->exclude_forwarding; } + sub _build_module_sender { my ($hook) = grep {blessed($_) && $_->isa('Object::Remote::ModuleLoader::Hook') }