X-Git-Url: https://diplodocus.org/git/nmh/blobdiff_plain/e32a18146eb52fc278833d7cfb49ed8d9ace62bc..e66e25ec491d0fb3df708000d8494b4d598f0263:/zotnet/mts/client.c

diff --git a/zotnet/mts/client.c b/zotnet/mts/client.c
index 924684c0..00959590 100644
--- a/zotnet/mts/client.c
+++ b/zotnet/mts/client.c
@@ -208,6 +208,7 @@ rcaux (struct servent *sp, struct hostent *hp, int rproto,
 
 #ifdef KPOP
     int rem;
+    struct hostent *hp2;
 #endif	/* KPOP */
 
     for (ap = nets; ap < n1; ap++)
@@ -256,7 +257,11 @@ rcaux (struct servent *sp, struct hostent *hp, int rproto,
     if (kservice) {	/* "pop" */
 	char *instance;
 
-	if ((instance = strdup (hp->h_name)) == NULL) {
+	if (( hp2 = gethostbyaddr( hp->h_addr, hp->h_length, hp->h_addrtype ))
+		== NULL ) {
+	    return NOTOK;
+	}
+	if ((instance = strdup (hp2->h_name)) == NULL) {
 	    close (sd);
 	    strncpy (response, "Out of memory.", len_response);
 	    return OOPS2;