This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
locale.c: Move a macro definition earlier in the file
authorKarl Williamson <khw@cpan.org>
Fri, 7 Apr 2023 01:49:20 +0000 (19:49 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 23 Aug 2023 01:02:52 +0000 (19:02 -0600)
locale.c

index 5df2b24..9188df8 100644 (file)
--- a/locale.c
+++ b/locale.c
  * creation, so can be a file-level static.  (Must come before #including
  * perl.h) */
 #include "config.h"
+
+/* Returns the Unix errno portion; ignoring any others.  This is a macro here
+ * instead of putting it into perl.h, because unclear to khw what should be
+ * done generally. */
+#define GET_ERRNO   saved_errno
+
 #ifdef DEBUGGING
 static int debug_initialization = 0;
 #  define DEBUG_INITIALIZATION_set(v) (debug_initialization = v)
@@ -552,11 +558,6 @@ S_mortalized_pv_copy(pTHX_ const char * const pv)
 
 #endif
 
-/* Returns the Unix errno portion; ignoring any others.  This is a macro here
- * instead of putting it into perl.h, because unclear to khw what should be
- * done generally. */
-#define GET_ERRNO   saved_errno
-
 /* Default values come from the C locale */
 #define C_codeset "ANSI_X3.4-1968" /* Only in some Configurations, and usually
                                       a single instance, so is a #define */