From a0f9c651b1fbd70d6841669c04e58c1f00d067d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Martin=20Grabm=C3=BCller?= <mgrabmue@cs.tu-berlin.de>
Date: Fri, 9 Mar 2001 12:09:17 +0000
Subject: [PATCH] 	(scm_gethostname): Set initial name length to 256 for 
 Solaris.

---
 libguile/posix.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libguile/posix.c b/libguile/posix.c
index 6f4bad800..861791864 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1506,7 +1506,9 @@ SCM_DEFINE (scm_gethostname, "gethostname", 0, 0, 0,
 	    "Return the host name of the current processor.")
 #define FUNC_NAME s_scm_gethostname
 {
-  int len = 2, res;
+  /* 256 is for Solaris, under Linux ENAMETOOLONG is returned if not
+     large enough.  */
+  int len = 256, res;
   char *p = scm_must_malloc (len, "gethostname");
   SCM name;