This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
vutil.c: White_space only
authorKarl Williamson <khw@cpan.org>
Mon, 15 Jan 2018 22:56:43 +0000 (15:56 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:49:03 +0000 (22:49 -0700)
Properly indent a block, and add spaces where C11++ deprecates not
having them

vutil.c

diff --git a/vutil.c b/vutil.c
index 5d83833..655fdc5 100644 (file)
--- a/vutil.c
+++ b/vutil.c
@@ -652,20 +652,20 @@ VER_NV:
        }
 #endif
         { /* Braces needed because macro just below declares a variable */
-        DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
-        STORE_LC_NUMERIC_SET_STANDARD();
-        LOCK_NUMERIC_STANDARD();
-       if (sv) {
-           Perl_sv_catpvf(aTHX_ sv, "%.9"NVff, SvNVX(ver));
-           len = SvCUR(sv);
-           buf = SvPVX(sv);
-       }
-       else {
-           len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver));
-           buf = tbuf;
-       }
-        UNLOCK_NUMERIC_STANDARD();
-        RESTORE_LC_NUMERIC();
+            DECLARATION_FOR_LC_NUMERIC_MANIPULATION;
+            STORE_LC_NUMERIC_SET_STANDARD();
+            LOCK_NUMERIC_STANDARD();
+            if (sv) {
+                Perl_sv_catpvf(aTHX_ sv, "%.9" NVff, SvNVX(ver));
+                len = SvCUR(sv);
+                buf = SvPVX(sv);
+            }
+            else {
+                len = my_snprintf(tbuf, sizeof(tbuf), "%.9" NVff, SvNVX(ver));
+                buf = tbuf;
+            }
+            UNLOCK_NUMERIC_STANDARD();
+            RESTORE_LC_NUMERIC();
         }
        while (buf[len-1] == '0' && len > 0) len--;
        if ( buf[len-1] == '.' ) len--; /* eat the trailing decimal */
@@ -923,11 +923,11 @@ Perl_vnormal(pTHX_ SV *vs)
        SV * tsv = *av_fetch(av, 0, 0);
        digit = SvIV(tsv);
     }
-    sv = Perl_newSVpvf(aTHX_ "v%"IVdf, (IV)digit);
+    sv = Perl_newSVpvf(aTHX_ "v%" IVdf, (IV)digit);
     for ( i = 1 ; i <= len ; i++ ) {
        SV * tsv = *av_fetch(av, i, 0);
        digit = SvIV(tsv);
-       Perl_sv_catpvf(aTHX_ sv, ".%"IVdf, (IV)digit);
+       Perl_sv_catpvf(aTHX_ sv, ".%" IVdf, (IV)digit);
     }
 
     if ( len <= 2 ) { /* short version, must be at least three */