diff options
author | John Peacock <jpeacock@cpan.org> | 2018-04-15 21:19:38 -0400 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2018-04-15 21:20:42 -0400 |
commit | a684213360784beeff22665b3da443d7b86e26cc (patch) | |
tree | 71266c0740512c3e4956fd5133edbd249e75fb10 /vutil.c | |
parent | fbb64cf55d4ec47a6b340862d7902f06b7a1ddc8 (diff) | |
download | perl-a684213360784beeff22665b3da443d7b86e26cc.tar.gz |
Synch cpan/version/* and other files with CPAN version 0.9923.
Per recommendation of Karl Williamson. Used this program to perform
synchronization:
https://github.com/jkeenan/scripts-misc/blob/master/sync-version-pm.pl
Diffstat (limited to 'vutil.c')
-rw-r--r-- | vutil.c | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -693,12 +693,12 @@ VER_NV: #endif if (sv) { - Perl_sv_catpvf(aTHX_ sv, "%.9"NVff, SvNVX(ver)); + 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)); + len = my_snprintf(tbuf, sizeof(tbuf), "%.9" NVff, SvNVX(ver)); buf = tbuf; } @@ -989,11 +989,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 */ |