X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnector%2FLocal.pm;h=bfe6639043bbd86285a2415ed1f8fb13e60b8ed9;hp=2064ac602788ce28766818c971c9e181b329b873;hb=7efea51f193cf42822232047403138ef98abcc32;hpb=beaee5a1ec2d8d70222163de995aa99adff0f052

diff --git a/lib/Object/Remote/Connector/Local.pm b/lib/Object/Remote/Connector/Local.pm
index 2064ac6..bfe6639 100644
--- a/lib/Object/Remote/Connector/Local.pm
+++ b/lib/Object/Remote/Connector/Local.pm
@@ -1,20 +1,10 @@
 package Object::Remote::Connector::Local;
 
-use IPC::Open2;
 use Moo;
 
-with 'Object::Remote::Role::Connector';
+with 'Object::Remote::Role::Connector::PerlInterpreter';
 
-sub _open2_for {
-  my $open_this = (
-    -d 't' && -e 'bin/object-remote-node'
-      ? 'bin/object-remote-node'
-      : 'object-remote-node'
-  );
-  my $pid = open2(my $its_stdout, my $its_stdin, 'bin/object-remote-node')
-    or die "Couldn't start local node: $!";
-  return ($its_stdin, $its_stdout, $pid);
-}
+no warnings 'once';
 
 push @Object::Remote::Connection::Guess, sub {
   if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }