X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=scpubgit%2FObject-Remote.git;a=blobdiff_plain;f=lib%2FObject%2FRemote%2FConnector%2FUNIX.pm;h=99e9a44565f93c085ab264c07bf0f44bce813906;hp=926f060d0bcc49578b97c26afbb940d0c5b0b0d5;hb=55c0d0209fa9d9265ff178f54ae9fe5fdddef3c1;hpb=fbd3b8ecbd2c9004f0e56ff1c0bc30f677a19c62 diff --git a/lib/Object/Remote/Connector/UNIX.pm b/lib/Object/Remote/Connector/UNIX.pm index 926f060..99e9a44 100644 --- a/lib/Object/Remote/Connector/UNIX.pm +++ b/lib/Object/Remote/Connector/UNIX.pm @@ -17,10 +17,11 @@ sub _open2_for { no warnings 'once'; -push @Object::Remote::Connection::Guess, sub { +push @Object::Remote::Connection::Guess, sub { for ($_[0]) { if (defined and !ref and /^(?:\.\/|\/)/) { - return __PACKAGE__->new(socket_path => $_[0]); + my $socket = shift(@_); + return __PACKAGE__->new(@_, socket_path => $socket); } } return;