Just for smoking - what happens if we enforce the use of getaddrinfo?smoke-me/inet_aton

This will fail to compile on platforms where there is no getaddrinfo.

1 files changed, 1 insertions, 8 deletions

diff --git a/ext/Socket/Socket.xs b/ext/Socket/Socket.xs
index 71f0c5746b..e820d48662 100644
--- a/ext/Socket/Socket.xs
+++ b/ext/Socket/Socket.xs
@@ -422,21 +422,14 @@ inet_aton(host)
 	CODE:
 	{
 	struct in_addr ip_address;
-	struct hostent * phe;
 
 	if ((*host != '\0') && inet_aton(host, &ip_address)) {
 		ST(0) = newSVpvn_flags((char *)&ip_address, sizeof ip_address, SVs_TEMP);
 		XSRETURN(1);
 	}
 
-	phe = gethostbyname(host);
-	if (phe && phe->h_addrtype == AF_INET && phe->h_length == 4) {
-		ST(0) = newSVpvn_flags((char *)phe->h_addr, phe->h_length, SVs_TEMP);
-		XSRETURN(1);
-	}
-
 	ST(0) = &PL_sv_undef;
-#ifdef HAS_GETADDRINFO
+#if 1
 	{
 		struct addrinfo hints = { 0 };
 		struct addrinfo *result;