summaryrefslogtreecommitdiff
path: root/toke.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-03-19 13:06:27 -0600
committerKarl Williamson <khw@cpan.org>2015-03-19 16:18:00 -0600
commit67d796aebd5882a4f28c5b95fb63f198a160c844 (patch)
tree283fb7684f5af5c98d29810b8855f9a55451bfdf /toke.c
parent0c36c41be6ceb31ab6c2cb9eaebf3d1fd7746e21 (diff)
downloadperl-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.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/toke.c b/toke.c
index 3b60488de2..610db62490 100644
--- a/toke.c
+++ b/toke.c
@@ -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);
}