X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=reentr.pl;h=ddbfab36f197b81006fbfb6700041e28b4c0739c;hb=9487c2fc1a7c5851aa2ef68b55b8b1db0cffa826;hp=84676d467d1225fe7f6520307d21f2da7417deb7;hpb=fe5bfecd71ca735f83568f7bc2b9f22cc82e3d61;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/reentr.pl b/reentr.pl
index 84676d4..ddbfab3 100644
--- a/reentr.pl
+++ b/reentr.pl
@@ -858,6 +858,7 @@ Perl_reentrant_retry(const char *f, ...)
     void *retptr = NULL;
     va_list ap;
     va_start(ap, f);
+    {
 #ifdef USE_REENTRANT_API
 #  if defined(USE_HOSTENT_BUFFER) || defined(USE_GRENT_BUFFER) || defined(USE_NETENT_BUFFER) || defined(USE_PWENT_BUFFER) || defined(USE_PROTOENT_BUFFER) || defined(USE_SERVENT_BUFFER)
     void *p0;
@@ -1076,6 +1077,7 @@ Perl_reentrant_retry(const char *f, ...)
 #else
     PERL_UNUSED_ARG(f);
 #endif
+    }
     va_end(ap);
     return retptr;
 }