File 0001-Handle-ENOENT-from-getprotobyname.patch of Package sbcl

Overview Repositories Revisions Requests Users Attributes Meta

File 0001-Handle-ENOENT-from-getprotobyname.patch of Package sbcl (Revision 74e87f26272e0a4117c38eba6191584b)

Currently displaying revision 74e87f26272e0a4117c38eba6191584b , Show latest

From 5097e4a35e99e2c31a1fa4b09416e147ef407a0b Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Wed, 6 Jul 2016 17:44:15 +0300
Subject: [PATCH 1/3] Handle ENOENT from getprotobyname()

It happens when /etc/protocols is missing.
Signal unknown-protocol in that case.

Fixes lp#1596043.
---
 contrib/sb-bsd-sockets/inet.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/contrib/sb-bsd-sockets/inet.lisp b/contrib/sb-bsd-sockets/inet.lisp
index ca3cfd0..077ace4 100644
--- a/contrib/sb-bsd-sockets/inet.lisp
+++ b/contrib/sb-bsd-sockets/inet.lisp
@@ -79,13 +79,16 @@ a list of protocol aliases"
                            name result-buf buffer buffer-length #-solaris result)))
                  (cond ((eql res 0)
                         #-solaris
-                        (when (sb-alien::null-alien (sb-alien:deref result 0))
+                        (when (sb-alien:null-alien (sb-alien:deref result 0))
                           (error 'unknown-protocol :name name))
                         (return-from getprotobyname
                           (protoent-to-values result-buf)))
                        (t
-                        (let ((errno (sb-unix::get-errno)))
-                          (cond ((eql errno sockint::erange)
+                        (let ((errno (sb-alien:get-errno)))
+                          (cond ((eql errno sb-unix:enoent)
+                                 ;; Usually caused by missing /etc/protocols
+                                 (error 'unknown-protocol :name name))
+                                ((eql errno sockint::erange)
                                  (incf buffer-length 1024)
                                  (when (> buffer-length max-buffer)
                                    (error "Exceeded max-buffer of ~d" max-buffer)))
-- 
2.8.4

Places

File 0001-Handle-ENOENT-from-getprotobyname.patch of Package sbcl (Revision 74e87f26272e0a4117c38eba6191584b)

Places