search sensibly for the object-remote-node script

[scpubgit/Object-Remote.git] / lib / Object / Remote / Connector / Local.pm

diff --git a/lib/Object/Remote/Connector/Local.pm b/lib/Object/Remote/Connector/Local.pm
index c57d07d..2064ac6 100644 (file)
--- a/lib/Object/Remote/Connector/Local.pm
+++ b/lib/Object/Remote/Connector/Local.pm
@@ -6,10 +6,18 @@ use Moo;
 with 'Object::Remote::Role::Connector';
 
 sub _open2_for {
-  # XXX bin/ is wrong but meh, fix later
+  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);
 }
 
+push @Object::Remote::Connection::Guess, sub {
+  if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }
+};
+
 1;