From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Tue, 4 Sep 2007 08:00:07 +0000 (+0000)
Subject: Re: [Fwd: Smoke [5.9.5] 31775 FAIL(m) OSF1 V5.1 (EV6/4 cpu)]
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=369ec4b2ef122823029d112a671816cf933b9b89;p=p5sagit%2Fp5-mst-13.2.git

Re: [Fwd: Smoke [5.9.5] 31775 FAIL(m) OSF1 V5.1 (EV6/4 cpu)]
Message-ID: <46DC3C7B.9000602@iki.fi>
Message-ID: <46DC3C7B.9000602@iki.fi>

Add { } to keep all variable declarations at the start of blocks.

p4raw-id: //depot/perl@31789
---

diff --git a/reentr.c b/reentr.c
index ffe7eb0..bae6876 100644
--- a/reentr.c
+++ b/reentr.c
@@ -315,6 +315,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;
@@ -533,6 +534,7 @@ Perl_reentrant_retry(const char *f, ...)
 #else
     PERL_UNUSED_ARG(f);
 #endif
+    }
     va_end(ap);
     return retptr;
 }
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;
 }