This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl.h: Move #if
authorKarl Williamson <khw@cpan.org>
Mon, 2 Jun 2014 20:56:51 +0000 (14:56 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 5 Jun 2014 17:22:36 +0000 (11:22 -0600)
Some of the things in its scope should be defined even if we don't want
to use LC_NUMERIC.  That there have been no reports of compilation
failures from the field indicates that the Configure to exclude it
hasn't been used.

perl.h

diff --git a/perl.h b/perl.h
index 7338f61..bd36ef8 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -5303,8 +5303,6 @@ typedef struct am_table_short AMTS;
 #define PERLDB_SAVESRC_NOSUBS  (PL_perldb && (PL_perldb & PERLDBf_SAVESRC_NOSUBS))
 #define PERLDB_SAVESRC_INVALID (PL_perldb && (PL_perldb & PERLDBf_SAVESRC_INVALID))
 
-#ifdef USE_LOCALE_NUMERIC
-
 /* Returns TRUE if the plain locale pragma without a parameter is in effect
  */
 #define IN_LOCALE_RUNTIME      cBOOL(CopHINTS_get(PL_curcop) & HINT_LOCALE)
@@ -5323,6 +5321,8 @@ typedef struct am_table_short AMTS;
        (IN_PERL_COMPILETIME ? IN_SOME_LOCALE_FORM_COMPILETIME \
                             : IN_SOME_LOCALE_FORM_RUNTIME)
 
+#ifdef USE_LOCALE_NUMERIC
+
 /* These macros are for toggling between the underlying locale (LOCAL) and the
  * C locale. */