From 176f608eda488c164d0380660a5553a9e00504f1 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Tue, 13 Jun 2023 11:38:56 -0600 Subject: [PATCH] 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 --- locale.c | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/locale.c b/locale.c index 3d127ddcbbfc..4ec83fdb38eb 100644 --- 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,7 +4115,7 @@ 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])); } @@ -4123,7 +4123,7 @@ S_new_ctype(pTHX_ const char *newctype, bool force) } 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"));