#endif
#ifdef USE_LOCALE_NUMERIC
- {
+ {
/* This may or may not be called from code that has switched
* locales without letting perl know, therefore we have to find it
* from first principals. See [perl #121930]. */
else { /* This value indicates to the restore code that we
didn't change the locale */
locale_name_on_entry = NULL;
- }
- }
+ }
+ }
else if (locale_obj_on_entry == PL_underlying_numeric_obj) {
/* Here, the locale appears to have been changed to use the
* program's underlying locale. Just use our mechanisms to
#endif
- if (sv) {
+ if (sv) {
Perl_sv_catpvf(aTHX_ sv, "%.9" NVff, SvNVX(ver));
- len = SvCUR(sv);
- buf = SvPVX(sv);
- }
- else {
+ len = SvCUR(sv);
+ buf = SvPVX(sv);
+ }
+ else {
len = my_snprintf(tbuf, sizeof(tbuf), "%.9" NVff, SvNVX(ver));
- buf = tbuf;
- }
+ buf = tbuf;
+ }
#ifdef USE_LOCALE_NUMERIC
}
else if (locale_obj_on_entry != PL_C_locale_obj) {
uselocale(locale_obj_on_entry);
- }
+ }
# endif