}
#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 */
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 */