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