style: Detabify regen files.

They generate C files.

Bump feature.pm and warnings.pm versions to satisfy cmpVERSION.pl.
I can't get it to easily ignore whitespace, `git diff --name-only`
does not respect the -w flag.

regen_perly.pl is left alone. That would require rebuilding
perly.* which is beyond a simple indentation change.

1 files changed, 187 insertions, 187 deletions

diff --git a/reentr.c b/reentr.c
index 2429aa2f5d..e3204e3244 100644
--- a/reentr.c
+++ b/reentr.c
@@ -36,14 +36,14 @@
 
 #define RenewDouble(data_pointer, size_pointer, type) \
     STMT_START { \
-	const size_t size = MAX(*(size_pointer), 1) * 2; \
-	Renew((data_pointer), (size), type); \
-	*(size_pointer) = size; \
+        const size_t size = MAX(*(size_pointer), 1) * 2; \
+        Renew((data_pointer), (size), type); \
+        *(size_pointer) = size; \
     } STMT_END
 
 void
 Perl_reentrant_size(pTHX) {
-	PERL_UNUSED_CONTEXT;
+        PERL_UNUSED_CONTEXT;
 
         /* Set the sizes of the reentrant buffers */
 
@@ -52,83 +52,83 @@ Perl_reentrant_size(pTHX) {
 #  define REENTRANTUSUALSIZE	4096	/* Make something up. */
 
 #  ifdef HAS_ASCTIME_R
-	PL_reentrant_buffer->_asctime_size = 26;
+        PL_reentrant_buffer->_asctime_size = 26;
 #  endif /* HAS_ASCTIME_R */
 
 #  ifdef HAS_CRYPT_R
 #  endif /* HAS_CRYPT_R */
 
 #  ifdef HAS_CTIME_R
-	PL_reentrant_buffer->_ctime_size = 26;
+        PL_reentrant_buffer->_ctime_size = 26;
 #  endif /* HAS_CTIME_R */
 
 #  ifdef HAS_GETGRNAM_R
 #    if defined(HAS_SYSCONF) && defined(_SC_GETGR_R_SIZE_MAX) && !defined(__GLIBC__)
-	PL_reentrant_buffer->_grent_size = sysconf(_SC_GETGR_R_SIZE_MAX);
-	if (PL_reentrant_buffer->_grent_size == (size_t) -1)
-		PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_grent_size = sysconf(_SC_GETGR_R_SIZE_MAX);
+        if (PL_reentrant_buffer->_grent_size == (size_t) -1)
+                PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE;
 #    elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ)
-	PL_reentrant_buffer->_grent_size = SIABUFSIZ;
+        PL_reentrant_buffer->_grent_size = SIABUFSIZ;
 #    elif defined(__sgi)
-	PL_reentrant_buffer->_grent_size = BUFSIZ;
+        PL_reentrant_buffer->_grent_size = BUFSIZ;
 #    else
-	PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_grent_size = REENTRANTUSUALSIZE;
 #    endif
 #  endif /* HAS_GETGRNAM_R */
 
 #  ifdef HAS_GETHOSTBYNAME_R
 #  if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	PL_reentrant_buffer->_hostent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_hostent_size = REENTRANTUSUALSIZE;
 #  endif
 #  endif /* HAS_GETHOSTBYNAME_R */
 
 #  ifdef HAS_GETLOGIN_R
-	PL_reentrant_buffer->_getlogin_size = REENTRANTSMALLSIZE;
+        PL_reentrant_buffer->_getlogin_size = REENTRANTSMALLSIZE;
 #  endif /* HAS_GETLOGIN_R */
 
 #  ifdef HAS_GETNETBYNAME_R
 #  if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	PL_reentrant_buffer->_netent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_netent_size = REENTRANTUSUALSIZE;
 #  endif
 #  endif /* HAS_GETNETBYNAME_R */
 
 #  ifdef HAS_GETPROTOBYNAME_R
 #  if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	PL_reentrant_buffer->_protoent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_protoent_size = REENTRANTUSUALSIZE;
 #  endif
 #  endif /* HAS_GETPROTOBYNAME_R */
 
 #  ifdef HAS_GETPWNAM_R
 #    if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__)
-	PL_reentrant_buffer->_pwent_size = sysconf(_SC_GETPW_R_SIZE_MAX);
-	if (PL_reentrant_buffer->_pwent_size == (size_t) -1)
-		PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_pwent_size = sysconf(_SC_GETPW_R_SIZE_MAX);
+        if (PL_reentrant_buffer->_pwent_size == (size_t) -1)
+                PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE;
 #    elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ)
-	PL_reentrant_buffer->_pwent_size = SIABUFSIZ;
+        PL_reentrant_buffer->_pwent_size = SIABUFSIZ;
 #    elif defined(__sgi)
-	PL_reentrant_buffer->_pwent_size = BUFSIZ;
+        PL_reentrant_buffer->_pwent_size = BUFSIZ;
 #    else
-	PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_pwent_size = REENTRANTUSUALSIZE;
 #    endif
 #  endif /* HAS_GETPWNAM_R */
 
 #  ifdef HAS_GETSERVBYNAME_R
 #  if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD)
-	PL_reentrant_buffer->_servent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_servent_size = REENTRANTUSUALSIZE;
 #  endif
 #  endif /* HAS_GETSERVBYNAME_R */
 
 #  ifdef HAS_GETSPNAM_R
 #    if defined(HAS_SYSCONF) && defined(_SC_GETPW_R_SIZE_MAX) && !defined(__GLIBC__)
-	PL_reentrant_buffer->_spent_size = sysconf(_SC_GETPW_R_SIZE_MAX);
-	if (PL_reentrant_buffer->_spent_size == (size_t) -1)
-		PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_spent_size = sysconf(_SC_GETPW_R_SIZE_MAX);
+        if (PL_reentrant_buffer->_spent_size == (size_t) -1)
+                PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE;
 #    elif defined(__osf__) && defined(__alpha) && defined(SIABUFSIZ)
-	PL_reentrant_buffer->_spent_size = SIABUFSIZ;
+        PL_reentrant_buffer->_spent_size = SIABUFSIZ;
 #    elif defined(__sgi)
-	PL_reentrant_buffer->_spent_size = BUFSIZ;
+        PL_reentrant_buffer->_spent_size = BUFSIZ;
 #    else
-	PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE;
+        PL_reentrant_buffer->_spent_size = REENTRANTUSUALSIZE;
 #    endif
 #  endif /* HAS_GETSPNAM_R */
 
@@ -139,27 +139,27 @@ Perl_reentrant_size(pTHX) {
 #  endif /* HAS_LOCALTIME_R */
 
 #  ifdef HAS_READDIR_R
-	/* This is the size Solaris recommends.
-	 * (though we go static, should use pathconf() instead) */
-	PL_reentrant_buffer->_readdir_size = sizeof(struct dirent) + MAXPATHLEN + 1;
+        /* This is the size Solaris recommends.
+         * (though we go static, should use pathconf() instead) */
+        PL_reentrant_buffer->_readdir_size = sizeof(struct dirent) + MAXPATHLEN + 1;
 #  endif /* HAS_READDIR_R */
 
 #  ifdef HAS_READDIR64_R
-	/* This is the size Solaris recommends.
-	 * (though we go static, should use pathconf() instead) */
-	PL_reentrant_buffer->_readdir64_size = sizeof(struct dirent64) + MAXPATHLEN + 1;
+        /* This is the size Solaris recommends.
+         * (though we go static, should use pathconf() instead) */
+        PL_reentrant_buffer->_readdir64_size = sizeof(struct dirent64) + MAXPATHLEN + 1;
 #  endif /* HAS_READDIR64_R */
 
 #  ifdef HAS_SETLOCALE_R
-	PL_reentrant_buffer->_setlocale_size = REENTRANTSMALLSIZE;
+        PL_reentrant_buffer->_setlocale_size = REENTRANTSMALLSIZE;
 #  endif /* HAS_SETLOCALE_R */
 
 #  ifdef HAS_STRERROR_R
-	PL_reentrant_buffer->_strerror_size = REENTRANTSMALLSIZE;
+        PL_reentrant_buffer->_strerror_size = REENTRANTSMALLSIZE;
 #  endif /* HAS_STRERROR_R */
 
 #  ifdef HAS_TTYNAME_R
-	PL_reentrant_buffer->_ttyname_size = REENTRANTSMALLSIZE;
+        PL_reentrant_buffer->_ttyname_size = REENTRANTSMALLSIZE;
 #  endif /* HAS_TTYNAME_R */
 
 
@@ -169,76 +169,76 @@ Perl_reentrant_size(pTHX) {
 
 void
 Perl_reentrant_init(pTHX) {
-	PERL_UNUSED_CONTEXT;
+        PERL_UNUSED_CONTEXT;
 
         /* Initialize the whole thing */
 
 #ifdef USE_REENTRANT_API
 
-	Newx(PL_reentrant_buffer, 1, REENTR);
-	Perl_reentrant_size(aTHX);
+        Newx(PL_reentrant_buffer, 1, REENTR);
+        Perl_reentrant_size(aTHX);
 
 #  ifdef HAS_ASCTIME_R
-	Newx(PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size, char);
+        Newx(PL_reentrant_buffer->_asctime_buffer, PL_reentrant_buffer->_asctime_size, char);
 #  endif /* HAS_ASCTIME_R */
 
 #  ifdef HAS_CRYPT_R
 #  if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD
-	PL_reentrant_buffer->_crypt_struct_buffer = 0;
+        PL_reentrant_buffer->_crypt_struct_buffer = 0;
 #  endif
 #  endif /* HAS_CRYPT_R */
 
 #  ifdef HAS_CTIME_R
-	Newx(PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size, char);
+        Newx(PL_reentrant_buffer->_ctime_buffer, PL_reentrant_buffer->_ctime_size, char);
 #  endif /* HAS_CTIME_R */
 
 #  ifdef HAS_GETGRNAM_R
 #   ifdef USE_GRENT_FPTR
-	PL_reentrant_buffer->_grent_fptr = NULL;
+        PL_reentrant_buffer->_grent_fptr = NULL;
 #   endif
-	Newx(PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, char);
+        Newx(PL_reentrant_buffer->_grent_buffer, PL_reentrant_buffer->_grent_size, char);
 #  endif /* HAS_GETGRNAM_R */
 
 #  ifdef HAS_GETHOSTBYNAME_R
 #  if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	Newx(PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, char);
+        Newx(PL_reentrant_buffer->_hostent_buffer, PL_reentrant_buffer->_hostent_size, char);
 #  endif
 #  endif /* HAS_GETHOSTBYNAME_R */
 
 #  ifdef HAS_GETLOGIN_R
-	Newx(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size, char);
+        Newx(PL_reentrant_buffer->_getlogin_buffer, PL_reentrant_buffer->_getlogin_size, char);
 #  endif /* HAS_GETLOGIN_R */
 
 #  ifdef HAS_GETNETBYNAME_R
 #  if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	Newx(PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, char);
+        Newx(PL_reentrant_buffer->_netent_buffer, PL_reentrant_buffer->_netent_size, char);
 #  endif
 #  endif /* HAS_GETNETBYNAME_R */
 
 #  ifdef HAS_GETPROTOBYNAME_R
 #  if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	Newx(PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, char);
+        Newx(PL_reentrant_buffer->_protoent_buffer, PL_reentrant_buffer->_protoent_size, char);
 #  endif
 #  endif /* HAS_GETPROTOBYNAME_R */
 
 #  ifdef HAS_GETPWNAM_R
 #   ifdef USE_PWENT_FPTR
-	PL_reentrant_buffer->_pwent_fptr = NULL;
+        PL_reentrant_buffer->_pwent_fptr = NULL;
 #   endif
-	Newx(PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, char);
+        Newx(PL_reentrant_buffer->_pwent_buffer, PL_reentrant_buffer->_pwent_size, char);
 #  endif /* HAS_GETPWNAM_R */
 
 #  ifdef HAS_GETSERVBYNAME_R
 #  if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD)
-	Newx(PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, char);
+        Newx(PL_reentrant_buffer->_servent_buffer, PL_reentrant_buffer->_servent_size, char);
 #  endif
 #  endif /* HAS_GETSERVBYNAME_R */
 
 #  ifdef HAS_GETSPNAM_R
 #   ifdef USE_SPENT_FPTR
-	PL_reentrant_buffer->_spent_fptr = NULL;
+        PL_reentrant_buffer->_spent_fptr = NULL;
 #   endif
-	Newx(PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, char);
+        Newx(PL_reentrant_buffer->_spent_buffer, PL_reentrant_buffer->_spent_size, char);
 #  endif /* HAS_GETSPNAM_R */
 
 #  ifdef HAS_GMTIME_R
@@ -248,23 +248,23 @@ Perl_reentrant_init(pTHX) {
 #  endif /* HAS_LOCALTIME_R */
 
 #  ifdef HAS_READDIR_R
-	PL_reentrant_buffer->_readdir_struct = (struct dirent*)safemalloc(PL_reentrant_buffer->_readdir_size);
+        PL_reentrant_buffer->_readdir_struct = (struct dirent*)safemalloc(PL_reentrant_buffer->_readdir_size);
 #  endif /* HAS_READDIR_R */
 
 #  ifdef HAS_READDIR64_R
-	PL_reentrant_buffer->_readdir64_struct = (struct dirent64*)safemalloc(PL_reentrant_buffer->_readdir64_size);
+        PL_reentrant_buffer->_readdir64_struct = (struct dirent64*)safemalloc(PL_reentrant_buffer->_readdir64_size);
 #  endif /* HAS_READDIR64_R */
 
 #  ifdef HAS_SETLOCALE_R
-	Newx(PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size, char);
+        Newx(PL_reentrant_buffer->_setlocale_buffer, PL_reentrant_buffer->_setlocale_size, char);
 #  endif /* HAS_SETLOCALE_R */
 
 #  ifdef HAS_STRERROR_R
-	Newx(PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size, char);
+        Newx(PL_reentrant_buffer->_strerror_buffer, PL_reentrant_buffer->_strerror_size, char);
 #  endif /* HAS_STRERROR_R */
 
 #  ifdef HAS_TTYNAME_R
-	Newx(PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size, char);
+        Newx(PL_reentrant_buffer->_ttyname_buffer, PL_reentrant_buffer->_ttyname_size, char);
 #  endif /* HAS_TTYNAME_R */
 
 
@@ -274,64 +274,64 @@ Perl_reentrant_init(pTHX) {
 
 void
 Perl_reentrant_free(pTHX) {
-	PERL_UNUSED_CONTEXT;
+        PERL_UNUSED_CONTEXT;
 
         /* Tear down */
 
 #ifdef USE_REENTRANT_API
 
 #  ifdef HAS_ASCTIME_R
-	Safefree(PL_reentrant_buffer->_asctime_buffer);
+        Safefree(PL_reentrant_buffer->_asctime_buffer);
 #  endif /* HAS_ASCTIME_R */
 
 #  ifdef HAS_CRYPT_R
 #  if CRYPT_R_PROTO != REENTRANT_PROTO_B_CCD
-	Safefree(PL_reentrant_buffer->_crypt_struct_buffer);
+        Safefree(PL_reentrant_buffer->_crypt_struct_buffer);
 #  endif
 #  endif /* HAS_CRYPT_R */
 
 #  ifdef HAS_CTIME_R
-	Safefree(PL_reentrant_buffer->_ctime_buffer);
+        Safefree(PL_reentrant_buffer->_ctime_buffer);
 #  endif /* HAS_CTIME_R */
 
 #  ifdef HAS_GETGRNAM_R
-	Safefree(PL_reentrant_buffer->_grent_buffer);
+        Safefree(PL_reentrant_buffer->_grent_buffer);
 #  endif /* HAS_GETGRNAM_R */
 
 #  ifdef HAS_GETHOSTBYNAME_R
 #  if !(GETHOSTBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	Safefree(PL_reentrant_buffer->_hostent_buffer);
+        Safefree(PL_reentrant_buffer->_hostent_buffer);
 #  endif
 #  endif /* HAS_GETHOSTBYNAME_R */
 
 #  ifdef HAS_GETLOGIN_R
-	Safefree(PL_reentrant_buffer->_getlogin_buffer);
+        Safefree(PL_reentrant_buffer->_getlogin_buffer);
 #  endif /* HAS_GETLOGIN_R */
 
 #  ifdef HAS_GETNETBYNAME_R
 #  if !(GETNETBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	Safefree(PL_reentrant_buffer->_netent_buffer);
+        Safefree(PL_reentrant_buffer->_netent_buffer);
 #  endif
 #  endif /* HAS_GETNETBYNAME_R */
 
 #  ifdef HAS_GETPROTOBYNAME_R
 #  if !(GETPROTOBYNAME_R_PROTO == REENTRANT_PROTO_I_CSD)
-	Safefree(PL_reentrant_buffer->_protoent_buffer);
+        Safefree(PL_reentrant_buffer->_protoent_buffer);
 #  endif
 #  endif /* HAS_GETPROTOBYNAME_R */
 
 #  ifdef HAS_GETPWNAM_R
-	Safefree(PL_reentrant_buffer->_pwent_buffer);
+        Safefree(PL_reentrant_buffer->_pwent_buffer);
 #  endif /* HAS_GETPWNAM_R */
 
 #  ifdef HAS_GETSERVBYNAME_R
 #  if !(GETSERVBYNAME_R_PROTO == REENTRANT_PROTO_I_CCSD)
-	Safefree(PL_reentrant_buffer->_servent_buffer);
+        Safefree(PL_reentrant_buffer->_servent_buffer);
 #  endif
 #  endif /* HAS_GETSERVBYNAME_R */
 
 #  ifdef HAS_GETSPNAM_R
-	Safefree(PL_reentrant_buffer->_spent_buffer);
+        Safefree(PL_reentrant_buffer->_spent_buffer);
 #  endif /* HAS_GETSPNAM_R */
 
 #  ifdef HAS_GMTIME_R
@@ -341,27 +341,27 @@ Perl_reentrant_free(pTHX) {
 #  endif /* HAS_LOCALTIME_R */
 
 #  ifdef HAS_READDIR_R
-	Safefree(PL_reentrant_buffer->_readdir_struct);
+        Safefree(PL_reentrant_buffer->_readdir_struct);
 #  endif /* HAS_READDIR_R */
 
 #  ifdef HAS_READDIR64_R
-	Safefree(PL_reentrant_buffer->_readdir64_struct);
+        Safefree(PL_reentrant_buffer->_readdir64_struct);
 #  endif /* HAS_READDIR64_R */
 
 #  ifdef HAS_SETLOCALE_R
-	Safefree(PL_reentrant_buffer->_setlocale_buffer);
+        Safefree(PL_reentrant_buffer->_setlocale_buffer);
 #  endif /* HAS_SETLOCALE_R */
 
 #  ifdef HAS_STRERROR_R
-	Safefree(PL_reentrant_buffer->_strerror_buffer);
+        Safefree(PL_reentrant_buffer->_strerror_buffer);
 #  endif /* HAS_STRERROR_R */
 
 #  ifdef HAS_TTYNAME_R
-	Safefree(PL_reentrant_buffer->_ttyname_buffer);
+        Safefree(PL_reentrant_buffer->_ttyname_buffer);
 #  endif /* HAS_TTYNAME_R */
 
 
-	Safefree(PL_reentrant_buffer);
+        Safefree(PL_reentrant_buffer);
 
 #endif /* USE_REENTRANT_API */
 }
@@ -402,7 +402,7 @@ Perl_reentrant_retry(const char *f, ...)
 
 #ifdef HAS_GETSPNAM_R
 
-	/* This is a #define as has no corresponding keyword */
+        /* This is a #define as has no corresponding keyword */
         if (strEQ(f, "getspnam")) {
             key = KEY_getspnam;
         }
@@ -425,36 +425,36 @@ Perl_reentrant_retry(const char *f, ...)
     case KEY_gethostbyaddr:
     case KEY_gethostbyname:
     case KEY_endhostent:
-	{
+        {
             char * host_addr;
             Size_t asize;
             char * host_name;
             int anint;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_hostent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_hostent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 #    endif
             RenewDouble(PL_reentrant_buffer->_hostent_buffer,
                     &PL_reentrant_buffer->_hostent_size, char);
             switch (key) {
-	        case KEY_gethostbyaddr:
-		    host_addr = va_arg(ap, char *);
-		    asize = va_arg(ap, Size_t);
-		    anint  = va_arg(ap, int);
+                case KEY_gethostbyaddr:
+                    host_addr = va_arg(ap, char *);
+                    asize = va_arg(ap, Size_t);
+                    anint  = va_arg(ap, int);
                     /* socklen_t is what Posix 2001 says this should be */
-		    retptr = gethostbyaddr(host_addr, (socklen_t) asize, anint); break;
-	        case KEY_gethostbyname:
-		    host_name = va_arg(ap, char *);
-		    retptr = gethostbyname(host_name); break;
-	        case KEY_endhostent:
-		    retptr = gethostent(); break;
-	        default:
-		    SETERRNO(ERANGE, LIB_INVARG);
-		    break;
-	    }
-	}
-	break;
+                    retptr = gethostbyaddr(host_addr, (socklen_t) asize, anint); break;
+                case KEY_gethostbyname:
+                    host_name = va_arg(ap, char *);
+                    retptr = gethostbyname(host_name); break;
+                case KEY_endhostent:
+                    retptr = gethostent(); break;
+                default:
+                    SETERRNO(ERANGE, LIB_INVARG);
+                    break;
+            }
+        }
+        break;
 
 #  endif
 #  ifdef USE_GRENT_BUFFER
@@ -462,35 +462,35 @@ Perl_reentrant_retry(const char *f, ...)
     case KEY_getgrent:
     case KEY_getgrgid:
     case KEY_getgrnam:
-	{
+        {
             char * name;
             Gid_t gid;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_grent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_grent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 #    endif
             RenewDouble(PL_reentrant_buffer->_grent_buffer,
                     &PL_reentrant_buffer->_grent_size, char);
             switch (key) {
-	        case KEY_getgrnam:
-		    name = va_arg(ap, char *);
-		    retptr = getgrnam(name); break;
-	        case KEY_getgrgid:
+                case KEY_getgrnam:
+                    name = va_arg(ap, char *);
+                    retptr = getgrnam(name); break;
+                case KEY_getgrgid:
 #    if Gid_t_size < INTSIZE
                     gid = (Gid_t)va_arg(ap, int);
 #    else
-		    gid = va_arg(ap, Gid_t);
+                    gid = va_arg(ap, Gid_t);
 #    endif
-		    retptr = getgrgid(gid); break;
-	        case KEY_getgrent:
-		    retptr = getgrent(); break;
-	        default:
-		    SETERRNO(ERANGE, LIB_INVARG);
-		    break;
-	    }
-	}
-	break;
+                    retptr = getgrgid(gid); break;
+                case KEY_getgrent:
+                    retptr = getgrent(); break;
+                default:
+                    SETERRNO(ERANGE, LIB_INVARG);
+                    break;
+            }
+        }
+        break;
 
 #  endif
 #  ifdef USE_NETENT_BUFFER
@@ -498,14 +498,14 @@ Perl_reentrant_retry(const char *f, ...)
     case KEY_getnetbyaddr:
     case KEY_getnetbyname:
     case KEY_getnetent:
-	{
+        {
             char * name;
             Netdb_net_t net;
             int anint;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_netent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_netent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 #    endif
             RenewDouble(PL_reentrant_buffer->_netent_buffer,
                     &PL_reentrant_buffer->_netent_size, char);
@@ -522,9 +522,9 @@ Perl_reentrant_retry(const char *f, ...)
                 default:
                     SETERRNO(ERANGE, LIB_INVARG);
                     break;
-	    }
-	}
-	break;
+            }
+        }
+        break;
 
 #  endif
 #  ifdef USE_PWENT_BUFFER
@@ -532,66 +532,66 @@ Perl_reentrant_retry(const char *f, ...)
     case  KEY_getpwnam:
     case  KEY_getpwuid:
     case  KEY_getpwent:
-	{
+        {
             Uid_t uid;
             char * name;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_pwent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_pwent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 
 #    endif
             RenewDouble(PL_reentrant_buffer->_pwent_buffer,
                     &PL_reentrant_buffer->_pwent_size, char);
             switch (key) {
-	        case KEY_getpwnam:
-		    name = va_arg(ap, char *);
-		    retptr = getpwnam(name); break;
-	        case KEY_getpwuid:
+                case KEY_getpwnam:
+                    name = va_arg(ap, char *);
+                    retptr = getpwnam(name); break;
+                case KEY_getpwuid:
 
 #    if Uid_t_size < INTSIZE
-		    uid = (Uid_t)va_arg(ap, int);
+                    uid = (Uid_t)va_arg(ap, int);
 #    else
-		    uid = va_arg(ap, Uid_t);
+                    uid = va_arg(ap, Uid_t);
 #    endif
-		    retptr = getpwuid(uid); break;
+                    retptr = getpwuid(uid); break;
 
 #  if defined(HAS_GETPWENT) || defined(HAS_GETPWENT_R)
 
-	        case KEY_getpwent:
-		    retptr = getpwent(); break;
+                case KEY_getpwent:
+                    retptr = getpwent(); break;
 #  endif
-	        default:
-		    SETERRNO(ERANGE, LIB_INVARG);
-		    break;
+                default:
+                    SETERRNO(ERANGE, LIB_INVARG);
+                    break;
             }
-	}
-	break;
+        }
+        break;
 
 #  endif
 #  ifdef USE_SPENT_BUFFER
 
     case KEY_getspnam:
-	{
+        {
             char * name;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_spent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_spent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 
 #    endif
             RenewDouble(PL_reentrant_buffer->_spent_buffer,
                     &PL_reentrant_buffer->_spent_size, char);
             switch (key) {
-	        case KEY_getspnam:
-		    name = va_arg(ap, char *);
-		    retptr = getspnam(name); break;
-	        default:
-		    SETERRNO(ERANGE, LIB_INVARG);
-		    break;
+                case KEY_getspnam:
+                    name = va_arg(ap, char *);
+                    retptr = getspnam(name); break;
+                default:
+                    SETERRNO(ERANGE, LIB_INVARG);
+                    break;
             }
-	}
-	break;
+        }
+        break;
 
 #  endif
 #  ifdef USE_PROTOENT_BUFFER
@@ -599,31 +599,31 @@ Perl_reentrant_retry(const char *f, ...)
     case KEY_getprotobyname:
     case KEY_getprotobynumber:
     case KEY_getprotoent:
-	{
+        {
             char * name;
             int anint;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_protoent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_protoent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 #    endif
             RenewDouble(PL_reentrant_buffer->_protoent_buffer,
                     &PL_reentrant_buffer->_protoent_size, char);
             switch (key) {
-	        case KEY_getprotobyname:
-		    name = va_arg(ap, char *);
-		    retptr = getprotobyname(name); break;
-	        case KEY_getprotobynumber:
-		    anint = va_arg(ap, int);
-		    retptr = getprotobynumber(anint); break;
-	        case KEY_getprotoent:
-		    retptr = getprotoent(); break;
-	        default:
-		    SETERRNO(ERANGE, LIB_INVARG);
-		    break;
-	    }
-	}
-	break;
+                case KEY_getprotobyname:
+                    name = va_arg(ap, char *);
+                    retptr = getprotobyname(name); break;
+                case KEY_getprotobynumber:
+                    anint = va_arg(ap, int);
+                    retptr = getprotobynumber(anint); break;
+                case KEY_getprotoent:
+                    retptr = getprotoent(); break;
+                default:
+                    SETERRNO(ERANGE, LIB_INVARG);
+                    break;
+            }
+        }
+        break;
 
 #  endif
 #  ifdef USE_SERVENT_BUFFER
@@ -631,40 +631,40 @@ Perl_reentrant_retry(const char *f, ...)
     case KEY_getservbyname:
     case KEY_getservbyport:
     case KEY_getservent:
-	{
+        {
             char * name;
             char * proto;
             int anint;
 
 #    ifdef PERL_REENTRANT_MAXSIZE
-	    if (PL_reentrant_buffer->_servent_size <=
-		PERL_REENTRANT_MAXSIZE / 2)
+            if (PL_reentrant_buffer->_servent_size <=
+                PERL_REENTRANT_MAXSIZE / 2)
 #    endif
             RenewDouble(PL_reentrant_buffer->_servent_buffer,
                     &PL_reentrant_buffer->_servent_size, char);
             switch (key) {
-	        case KEY_getservbyname:
-		    name = va_arg(ap, char *);
-		    proto = va_arg(ap, char *);
-		    retptr = getservbyname(name, proto); break;
-	        case KEY_getservbyport:
-		    anint = va_arg(ap, int);
-		    name = va_arg(ap, char *);
-		    retptr = getservbyport(anint, name); break;
-	        case KEY_getservent:
-		    retptr = getservent(); break;
-	        default:
-		    SETERRNO(ERANGE, LIB_INVARG);
-		    break;
-	    }
-	}
-	break;
+                case KEY_getservbyname:
+                    name = va_arg(ap, char *);
+                    proto = va_arg(ap, char *);
+                    retptr = getservbyname(name, proto); break;
+                case KEY_getservbyport:
+                    anint = va_arg(ap, int);
+                    name = va_arg(ap, char *);
+                    retptr = getservbyport(anint, name); break;
+                case KEY_getservent:
+                    retptr = getservent(); break;
+                default:
+                    SETERRNO(ERANGE, LIB_INVARG);
+                    break;
+            }
+        }
+        break;
 
 #  endif
 
     default:
-	/* Not known how to retry, so just fail. */
-	break;
+        /* Not known how to retry, so just fail. */
+        break;
     }
 
 #else