locale.c: Move some DEBUGGING code

This is moved so it gets executed for all branches.

1 files changed, 9 insertions, 10 deletions

diff --git a/locale.c b/locale.c
index d062e855ea..58a0d58bbd 100644
--- 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;