The R Project SVN – R – Diff – /trunk/src/modules/internet/Rsock.c

 /*
  *  R : A Computer Language for Statistical Data Analysis
- *  Copyright (C) 1998-2017   The R Core Team
+ *  Copyright (C) 1998-2019   The R Core Team
  *  Copyright (C) 1996, 1997  Robert Gentleman and Ross Ihaka
+ *
  *  This program is free software; you can redistribute it and/or modify
  *  it under the terms of the GNU General Public License as published by
  *  the Free Software Foundation; either version 2 of the License, or
 #endif
 #ifdef HAVE_SYS_SELECT_H
 #include <sys/select.h>
 #endif
+struct hostent *R_gethostbyname(const char *name);
 #ifndef Win32
 #define closesocket(s) close(s)
 #define SOCKET int
 #endif
     if (status < 0) {
 	CLOSE_N_RETURN(-1);
+    }
 #endif
-    if (! (hp = gethostbyname(host))) CLOSE_N_RETURN(-1);
+    if (! (hp = R_gethostbyname(host))) CLOSE_N_RETURN(-1);
     memcpy((char *)&server.sin_addr, hp->h_addr_list[0], hp->h_length);
     server.sin_port = htons((short)port);
     server.sin_family = AF_INET;
+	}
     } while (/* ! blocking && */len > 0);
     return out;
+}
+struct hostent *R_gethostbyname(const char *name)
+{
+    struct hostent *ans = gethostbyname(name);
+    /* hard-code IPv4 address for localhost to be robust against
+       misconfigured systems */
+    if (ans == NULL && !strcmp(name, "localhost"))
+	ans = gethostbyname("127.0.0.1");
+    return ans;
+}

The R Project SVN R