This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Move comment to better place
authorKarl Williamson <khw@cpan.org>
Thu, 26 Nov 2020 13:16:13 +0000 (06:16 -0700)
committerKarl Williamson <khw@cpan.org>
Fri, 27 Nov 2020 03:05:23 +0000 (20:05 -0700)
locale.c

index 4654a5b..9500ab7 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -636,11 +636,12 @@ S_emulate_setlocale(const int category,
         /* If this assert fails, adjust the size of curlocales in intrpvar.h */
         STATIC_ASSERT_STMT(C_ARRAY_LENGTH(PL_curlocales) > LC_ALL_INDEX);
 
-#    if   defined(_NL_LOCALE_NAME)                      \
-     &&   defined(DEBUGGING)                            \
+#    if   defined(_NL_LOCALE_NAME)                                          \
+     &&   defined(DEBUGGING)                                                \
+          /* On systems that accept any locale name, the real underlying    \
+           * locale is often returned by this internal function, so we      \
+           * can't use it */                                                \
      && ! defined(SETLOCALE_ACCEPTS_ANY_LOCALE_NAME)
-          /* On systems that accept any locale name, the real underlying locale
-           * is often returned by this internal function, so we can't use it */
         {
             /* Internal glibc for querylocale(), but doesn't handle
              * empty-string ("") locale properly; who knows what other