This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Remove unused locale core macro
authorKarl Williamson <khw@cpan.org>
Mon, 15 Jan 2018 04:37:16 +0000 (21:37 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 31 Jan 2018 05:49:02 +0000 (22:49 -0700)
This undocumented macro is unused in the core, and all these are
commented that they are subject to change.  And it confuses things, so
just remove it.

perl.h

diff --git a/perl.h b/perl.h
index 6038a73..e76dab3 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5828,12 +5828,6 @@ expression, but with an empty argument list, like this:
        bool _was_underlying = _NOT_IN_NUMERIC_STANDARD;                    \
        if (_was_underlying) Perl_set_numeric_standard(aTHX);
 
-/* Doesn't change to underlying locale unless within the scope of some form of
- * 'use locale'.  This is the usual desired behavior. */
-#  define STORE_LC_NUMERIC_STANDARD_SET_UNDERLYING()                        \
-       bool _was_standard = _NOT_IN_NUMERIC_UNDERLYING                     \
-                            && IN_LC(LC_NUMERIC);                           \
-       if (_was_standard) Perl_set_numeric_underlying(aTHX);
 
 /* Rarely, we want to change to the underlying locale even outside of 'use
  * locale'.  This is principally in the POSIX:: functions */
@@ -5872,7 +5866,6 @@ expression, but with an empty argument list, like this:
 #  define SET_NUMERIC_UNDERLYING()
 #  define IS_NUMERIC_RADIX(a, b)               (0)
 #  define STORE_LC_NUMERIC_UNDERLYING_SET_STANDARD()
-#  define STORE_LC_NUMERIC_STANDARD_SET_UNDERLYING()
 #  define STORE_LC_NUMERIC_FORCE_TO_UNDERLYING()
 #  define RESTORE_LC_NUMERIC_UNDERLYING()
 #  define RESTORE_LC_NUMERIC_STANDARD()