Change name of internal function

Following on the previous commit, this changes the name of the function
that changes the variable to be in sync with it.

1 files changed, 3 insertions, 3 deletions

diff --git a/locale.c b/locale.c
index 36522ee267..4d93217fc8 100644
--- a/locale.c
+++ b/locale.c
@@ -201,8 +201,8 @@ Perl_new_numeric(pTHX_ const char *newnum)
      * It installs this locale as the current underlying default.
      *
      * The default locale and the C locale can be toggled between by use of the
-     * set_numeric_local() and set_numeric_standard() functions, which should
-     * probably not be called directly, but only via macros like
+     * set_numeric_underlying() and set_numeric_standard() functions, which
+     * should probably not be called directly, but only via macros like
      * SET_NUMERIC_STANDARD() in perl.h.
      *
      * The toggling is necessary mainly so that a non-dot radix decimal point
@@ -289,7 +289,7 @@ Perl_set_numeric_standard(pTHX)
 }
 
 void
-Perl_set_numeric_local(pTHX)
+Perl_set_numeric_underlying(pTHX)
 {
 
 #ifdef USE_LOCALE_NUMERIC