X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnector%2FLocal.pm;h=838bd5d16258dad64780842a6fb8555f27b30b9b;hb=466ee2c442ee6958e077a02c3c250245f06ad819;hp=72a153f0e843dc33ad8c6277e40a8b9adf830245;hpb=84b04178bd25e342d7f522e8f60c6d695b09576a;p=scpubgit%2FObject-Remote.git

diff --git a/lib/Object/Remote/Connector/Local.pm b/lib/Object/Remote/Connector/Local.pm
index 72a153f..838bd5d 100644
--- a/lib/Object/Remote/Connector/Local.pm
+++ b/lib/Object/Remote/Connector/Local.pm
@@ -1,19 +1,18 @@
 package Object::Remote::Connector::Local;
 
-use IPC::Open2;
 use Moo;
 
-with 'Object::Remote::Role::Connector';
+with 'Object::Remote::Role::Connector::PerlInterpreter';
 
-sub _open2_for {
-  # XXX bin/ is wrong but meh, fix later
-  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';
+
+BEGIN {  }
 
 push @Object::Remote::Connection::Guess, sub {
-  if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }
+  if (($_[0]||'') eq '-') {
+      shift(@_); 
+      __PACKAGE__->new(@_); 
+  }
 };
 
 1;