diff options
| author | Karl Williamson <khw@cpan.org> | 2017-08-28 17:21:09 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2017-11-08 20:52:52 -0700 |
| commit | 892e646556f1997b0384dc508d3223c2c2a7be74 (patch) | |
| tree | 0789fa4b3c67af8a23eef78b216d951a41530679 /sv.c | |
| parent | 755599dacf0896e06380d44bf5f7dd624678415a (diff) | |
| download | perl-892e646556f1997b0384dc508d3223c2c2a7be74.tar.gz | |
Change name of locale per-interpreter variable
The real purpose of this internal variable is to give the name of the
locale that is the underlying one for the C program. Various macros
already indicate that. This furthers the process.
Diffstat (limited to 'sv.c')
| -rw-r--r-- | sv.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -3141,7 +3141,7 @@ Perl_sv_2pv_flags(pTHX_ SV *const sv, STRLEN *const lp, const I32 flags) DECLARATION_FOR_LC_NUMERIC_MANIPULATION; STORE_LC_NUMERIC_SET_TO_NEEDED(); - local_radix = PL_numeric_local && PL_numeric_radix_sv; + local_radix = PL_numeric_underlying && PL_numeric_radix_sv; if (local_radix && SvCUR(PL_numeric_radix_sv) > 1) { size += SvCUR(PL_numeric_radix_sv) - 1; s = SvGROW_mutable(sv, size); @@ -15337,7 +15337,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, #ifdef USE_LOCALE_NUMERIC PL_numeric_standard = proto_perl->Inumeric_standard; - PL_numeric_local = proto_perl->Inumeric_local; + PL_numeric_underlying = proto_perl->Inumeric_underlying; #endif /* !USE_LOCALE_NUMERIC */ /* Did the locale setup indicate UTF-8? */ |