perl.h: Reorder cpp branches

Disposing of the trivial case first makes things easier to read.
Perl · May 6, 2021 · ac1f0b2 · ac1f0b2
1 parent 85b2e33
commit ac1f0b2
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/perl.h b/perl.h
@@ -6663,7 +6663,9 @@ the plain locale pragma without a parameter (S<C<use locale>>) is in effect.
            || (defined(HAS_MBTOWC) && ! defined(HAS_MBRTOWC))               \
            || (defined(HAS_WCTOMB) && ! defined(HAS_WCRTOMB))))
 
-#  ifdef USE_POSIX_2008_LOCALE
+#  ifndef USE_POSIX_2008_LOCALE
+#    define LOCALE_TERM_POSIX_2008_  NOOP
+#  else
      /* We have a locale object holding the 'C' locale for Posix 2008 */
 #    define LOCALE_TERM_POSIX_2008_                                         \
                     STMT_START {                                            \
@@ -6675,8 +6677,6 @@ the plain locale pragma without a parameter (S<C<use locale>>) is in effect.
                             PL_C_locale_obj = (locale_t) NULL;              \
                         }                                                   \
                     } STMT_END
-#  else
-#    define LOCALE_TERM_POSIX_2008_  NOOP
 #  endif
 
 #  define LOCALE_INIT           STMT_START {                                \