Skip to content

Commit c38cc54

Browse files
khwilliamsonJohn Peacock
authored andcommitted
vutil.c: Add required spaces back
This fails to compile with some C++ compilers; raising deprecation messages on others. All that is needed some extra white space characters.
1 parent 7d1f84c commit c38cc54

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

vutil/vutil.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -693,12 +693,12 @@ Perl_upg_version(pTHX_ SV *ver, bool qv)
693693
#endif
694694

695695
if (sv) {
696-
Perl_sv_catpvf(aTHX_ sv, "%.9"NVff, SvNVX(ver));
696+
Perl_sv_catpvf(aTHX_ sv, "%.9" NVff, SvNVX(ver));
697697
len = SvCUR(sv);
698698
buf = SvPVX(sv);
699699
}
700700
else {
701-
len = my_snprintf(tbuf, sizeof(tbuf), "%.9"NVff, SvNVX(ver));
701+
len = my_snprintf(tbuf, sizeof(tbuf), "%.9" NVff, SvNVX(ver));
702702
buf = tbuf;
703703
}
704704

@@ -989,11 +989,11 @@ Perl_vnormal(pTHX_ SV *vs)
989989
SV * tsv = *av_fetch(av, 0, 0);
990990
digit = SvIV(tsv);
991991
}
992-
sv = Perl_newSVpvf(aTHX_ "v%"IVdf, (IV)digit);
992+
sv = Perl_newSVpvf(aTHX_ "v%" IVdf, (IV)digit);
993993
for ( i = 1 ; i <= len ; i++ ) {
994994
SV * tsv = *av_fetch(av, i, 0);
995995
digit = SvIV(tsv);
996-
Perl_sv_catpvf(aTHX_ sv, ".%"IVdf, (IV)digit);
996+
Perl_sv_catpvf(aTHX_ sv, ".%" IVdf, (IV)digit);
997997
}
998998

999999
if ( len <= 2 ) { /* short version, must be at least three */

0 commit comments

Comments
 (0)