callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see plug-ins/perl/Changes

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

4
plug-ins/perl/Net/Net.pm
View File

@ -197,8 +197,8 @@ sub try_connect {
return start_server($_); return start_server($_);
} elsif (s{^unix/}{/}) { } elsif (s{^unix/}{/}) {
my $server_fh=local *FH; my $server_fh=local *FH;
return ((socket $server_fh,AF_UNIX,SOCK_STREAM,PF_UNSPEC) return ((socket($server_fh,AF_UNIX,SOCK_STREAM,PF_UNSPEC)
|| (socket $server_fh,AF_LOCAL,SOCK_STREAM,PF_UNSPEC) || socket $server_fh,AF_LOCAL,SOCK_STREAM,PF_UNSPEC)
&& connect($server_fh,sockaddr_un $_) && connect($server_fh,sockaddr_un $_)
? $server_fh : ()); ? $server_fh : ());
} else { } else {