see plug-ins/perl/Changes

This commit is contained in:
Marc Lehmann 2000-05-18 04:49:43 +00:00
parent 75267997be
commit ad8bb5efb6
1 changed files with 2 additions and 2 deletions

View File

@ -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 {