From 339d3e6a1f5233da983d7de39b0200d92d0e5a88 Mon Sep 17 00:00:00 2001
From: Marc Lehmann <pcg@src.gnome.org>
Date: Sat, 8 May 1999 00:59:38 +0000
Subject: [PATCH] see plug-ins/perl/Changes

---
 plug-ins/perl/Changes     | 2 ++
 plug-ins/perl/Gimp/Net.pm | 1 +
 2 files changed, 3 insertions(+)

diff --git a/plug-ins/perl/Changes b/plug-ins/perl/Changes
index f16d0ad20b..290c7fa164 100644
--- a/plug-ins/perl/Changes
+++ b/plug-ins/perl/Changes
@@ -1,5 +1,7 @@
 Revision history for Gimp-Perl extension.
 
+	- fixed sunos/solaris socketpair "protocol not implemented" problem.
+
 1.081 Thu May  6 19:33:37 CEST 1999
 	- added "oneliners".
 	- startet implementing Gimp::Module, for embedding perl directly into
diff --git a/plug-ins/perl/Gimp/Net.pm b/plug-ins/perl/Gimp/Net.pm
index 55c01d2285..ef9c91c42f 100644
--- a/plug-ins/perl/Gimp/Net.pm
+++ b/plug-ins/perl/Gimp/Net.pm
@@ -142,6 +142,7 @@ sub start_server {
    $server_fh=local *FH;
    my $gimp_fh=local *FH;
    socketpair $server_fh,$gimp_fh,PF_UNIX,SOCK_STREAM,AF_UNIX
+      or socketpair $server_fh,$gimp_fh,PF_UNIX,SOCK_STREAM,PF_UNSPEC
       or croak "unable to create socketpair for gimp communications: $!";
    $gimp_pid = fork;
    if ($gimp_pid > 0) {