diff options
author | Karl Williamson <khw@cpan.org> | 2018-01-15 15:56:43 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-01-30 22:49:03 -0700 |
commit | b9a25d155118fddc3a753295697ee5f81c23a0fc (patch) | |
tree | f936d30f36474c4ea543453a42b215b257ac43a9 /vutil.c | |
parent | 688523a07c52ae6d2b46270f0eebc90807f34595 (diff) | |
download | perl-b9a25d155118fddc3a753295697ee5f81c23a0fc.tar.gz |
vutil.c: White_space only
Properly indent a block, and add spaces where C11++ deprecates not
having them
Diffstat (limited to 'vutil.c')
-rw-r--r-- | vutil.c | 32 |
1 files changed, 16 insertions, 16 deletions
@@ -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 */ |