Commit ad8bb5ef authored by Marc Lehmann's avatar Marc Lehmann
Browse files

see plug-ins/perl/Changes

parent 75267997
......@@ -197,8 +197,8 @@ sub try_connect {
return start_server($_);
} elsif (s{^unix/}{/}) {
my $server_fh=local *FH;
return ((socket $server_fh,AF_UNIX,SOCK_STREAM,PF_UNSPEC)
|| (socket $server_fh,AF_LOCAL,SOCK_STREAM,PF_UNSPEC)
return ((socket($server_fh,AF_UNIX,SOCK_STREAM,PF_UNSPEC)
|| socket $server_fh,AF_LOCAL,SOCK_STREAM,PF_UNSPEC)
&& connect($server_fh,sockaddr_un $_)
? $server_fh : ());
} else {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment