From b7e46b8b0266b68c8495649721f5b5d15cb9c85f Mon Sep 17 00:00:00 2001
From: Michael Davidsaver <mdavidsaver@bnl.gov>
Date: Wed, 13 Aug 2014 14:26:03 -0400
Subject: [PATCH] rsrv: better error msg when listen() fails

---
 src/ioc/rsrv/caservertask.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/ioc/rsrv/caservertask.c b/src/ioc/rsrv/caservertask.c
index 14c7ce1b0..dd2f6e764 100644
--- a/src/ioc/rsrv/caservertask.c
+++ b/src/ioc/rsrv/caservertask.c
@@ -170,7 +170,11 @@ static void req_server (void *pParm)
 
     /* listen and accept new connections */
     if ( listen ( IOC_sock, 20 ) < 0 ) {
-        errlogPrintf ("CAS: Listen error\n");
+        char sockErrBuf[64];
+        epicsSocketConvertErrnoToString (
+            sockErrBuf, sizeof ( sockErrBuf ) );
+        errlogPrintf ( "CAS: Listen error %s\n",
+            sockErrBuf );
         epicsSocketDestroy (IOC_sock);
         epicsThreadSuspendSelf ();
     }