INET connector

[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 ce96d9a..6119e3f 100644 (file)
--- a/lib/Object/Remote/Connector/Local.pm
+++ b/lib/Object/Remote/Connector/Local.pm
@@ -4,8 +4,15 @@ use Moo;
 
 with 'Object::Remote::Role::Connector::PerlInterpreter';
 
+no warnings 'once';
+
+BEGIN {  }
+
 push @Object::Remote::Connection::Guess, sub {
-  if (($_[0]||'') eq '-') { __PACKAGE__->new->connect }
+  if (($_[0]||'') eq '-') {
+      shift(@_);
+      __PACKAGE__->new(@_);
+  }
 };
 
 1;