Perl_sv_vcatpvfn_flags: reduce scope of 'have' var

Just declare this var in the small block where its needed, rather than
being in scope for 500+ lines.

Should be no functional changes.

diff --git a/sv.c b/sv.c
index 14b8384..70a268f 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11627,7 +11627,6 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
 #  define FV_ISFINITE(x) Perl_isfinite((NV)(x))
 #endif
         NV nv;
-       STRLEN have;
        STRLEN float_need; /* what PL_efloatsize needs to become */
        STRLEN gap;
        const char *dotstr = ".";
@@ -13041,14 +13040,17 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
            }
        }
 
-        /* signed value that's wrapped? */
-        assert(elen  <= ((~(STRLEN)0) >> 1));
-       have = esignlen + zeros + elen;
-       if (have < zeros)
-           croak_memory_wrap();
 
         {
-            STRLEN need = (have > width ? have : width);
+            STRLEN need, have;
+
+            /* signed value that's wrapped? */
+            assert(elen  <= ((~(STRLEN)0) >> 1));
+            have = esignlen + zeros + elen;
+            if (have < zeros)
+                croak_memory_wrap();
+
+            need = (have > width ? have : width);
             gap = need - have;
 
             if (need >= (((STRLEN)~0) - SvCUR(sv) - dotstrlen - 1))