diff options
author | Karl Williamson <khw@cpan.org> | 2015-03-19 13:06:27 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-03-19 16:18:00 -0600 |
commit | 67d796aebd5882a4f28c5b95fb63f198a160c844 (patch) | |
tree | 283fb7684f5af5c98d29810b8855f9a55451bfdf /toke.c | |
parent | 0c36c41be6ceb31ab6c2cb9eaebf3d1fd7746e21 (diff) | |
download | perl-67d796aebd5882a4f28c5b95fb63f198a160c844.tar.gz |
Change some locale manipulation macros in prep for API
This changes the way some of the current internal-only macros are named
and used in order to simplify things and minimize what gets exposed as
part of the API.
Although these have not been listed as publicly available, it costs
essentially nothing to keep the old names around in case someone was
illegally using them.
Diffstat (limited to 'toke.c')
-rw-r--r-- | toke.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -10472,7 +10472,7 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) floatit = TRUE; } if (floatit) { - STORE_NUMERIC_LOCAL_SET_STANDARD(); + STORE_LC_NUMERIC_UNDERLYING_SET_STANDARD(); /* terminate the string */ *d = '\0'; if (UNLIKELY(hexfp)) { @@ -10489,7 +10489,7 @@ Perl_scan_num(pTHX_ const char *start, YYSTYPE* lvalp) } else { nv = Atof(PL_tokenbuf); } - RESTORE_NUMERIC_LOCAL(); + RESTORE_LC_NUMERIC_UNDERLYING(); sv = newSVnv(nv); } |