locale.c: Move some DEBUGGING code
authorKarl Williamson <khw@cpan.org>
Mon, 24 Jul 2017 04:28:30 +0000 (22:28 -0600)
committerKarl Williamson <khw@cpan.org>
Sun, 13 Aug 2017 04:53:11 +0000 (22:53 -0600)
This is moved so it gets executed for all branches.

locale.c

index d062e85..58a0d58 100644 (file)
--- a/locale.c
+++ b/locale.c
@@ -2791,16 +2791,6 @@ Perl_my_strerror(pTHX_ const int errnum)
     errstr = Strerror(errnum);
     if (errstr) {
 
-#ifdef DEBUGGING
-
-        if (DEBUG_Lv_TEST) {
-            PerlIO_printf(Perl_debug_log, "Strerror returned; saving a copy: '");
-            print_bytes_for_locale(errstr, errstr + strlen(errstr), 0);
-            PerlIO_printf(Perl_debug_log, "'\n");
-        }
-
-#endif
-
         errstr = savepv(errstr);
         SAVEFREEPV(errstr);
     }
@@ -2835,6 +2825,15 @@ Perl_my_strerror(pTHX_ const int errnum)
     LOCALE_UNLOCK;
 
 #  endif
+
+#ifdef DEBUGGING
+
+    if (DEBUG_Lv_TEST) {
+        PerlIO_printf(Perl_debug_log, "Strerror returned; saving a copy: '");
+        print_bytes_for_locale(errstr, errstr + strlen(errstr), 0);
+        PerlIO_printf(Perl_debug_log, "'\n");
+    }
+
 #endif
 
     return errstr;