locale.c: Change some -DLv statements to -DL

These debug statements show something isn't quite normal, so shouldn't require a verbose option to be displayed
Perl · Nov 22, 2023 · 176f608 · 176f608
1 parent e1e767f
commit 176f608
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/locale.c b/locale.c
@@ -4070,10 +4070,10 @@ S_new_ctype(pTHX_ const char *newctype, bool force)
 
 #    ifdef DEBUGGING
 
-            /* Most locales these days are supersets of ASCII.  When debugging
-             * with -DLv, it is helpful to know what the exceptions to that are
-             * in this locale */
-            if (DEBUG_Lv_TEST) {
+            /* Most locales these days are supersets of ASCII.  When debugging,
+             * it is helpful to know what the exceptions to that are in this
+             * locale */
+            if (DEBUG_L_TEST) {
                 bool unexpected = FALSE;
 
                 if (isUPPER_L1(i)) {
@@ -4115,15 +4115,15 @@ S_new_ctype(pTHX_ const char *newctype, bool force)
 
                 if (unexpected) {
                     found_unexpected = TRUE;
-                    DEBUG_Lv(PerlIO_printf(Perl_debug_log,
+                    DEBUG_L(PerlIO_printf(Perl_debug_log,
                                            "For %s, fold of %02x is %02x\n",
                                            newctype, i, PL_fold_locale[i]));
                 }
             }
         }
 
         if (found_unexpected) {
-            DEBUG_Lv(PerlIO_printf(Perl_debug_log,
+            DEBUG_L(PerlIO_printf(Perl_debug_log,
                                "All bytes not mentioned above either fold to"
                                " themselves or are the expected ASCII or"
                                " Latin1 ones\n"));