From 9d85214faa0184364faade1253f389c4c7145f65 Mon Sep 17 00:00:00 2001
From: Miles Bader <miles@gnu.org>
Date: Sat, 22 Jul 1995 16:56:26 +0000
Subject: Formerly pf.c.~8~

---
 pflocal/pf.c | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'pflocal')

diff --git a/pflocal/pf.c b/pflocal/pf.c
index 0f0e2d9c..24fc7936 100644
--- a/pflocal/pf.c
+++ b/pflocal/pf.c
@@ -53,9 +53,13 @@ S_socket_create (mach_port_t pf,
 
   err = sock_create (pipe_class, &sock);
   if (!err)
-    err = sock_create_port (sock, port);
-  if (!err)
-    *port_type = MACH_MSG_TYPE_MAKE_SEND;
+    {
+      err = sock_create_port (sock, port);
+      if (err)
+	sock_free (sock);
+      else
+	*port_type = MACH_MSG_TYPE_MAKE_SEND;
+    }
   
   return err;
 }
-- 
cgit v1.2.3