X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/3be8f09452a42b9f1bbefef19be2dd11a2ca029b..63835f7971cba357334d2e18bcc585f707740980:/util.c

diff --git a/util.c b/util.c
index 28cc706..79e4000 100644
--- a/util.c
+++ b/util.c
@@ -6287,6 +6287,7 @@ Perl_drand48_r(perl_drand48_t *random_state)
 
     return ldexp(*random_state, -48);
 #else
+    {
     U32 accu;
     U16 temp[2];
 
@@ -6308,6 +6309,7 @@ Perl_drand48_r(perl_drand48_t *random_state)
     return ldexp((double) random_state->seed[0], -48) +
            ldexp((double) random_state->seed[1], -32) +
            ldexp((double) random_state->seed[2], -16);
+    }
 #endif
 }