Skip to content

Commit

Permalink
Revert "locale.c: Add line_t to debugging"
Browse files Browse the repository at this point in the history
This reverts commit 2333eb8cfcb7000d42d3cb2919449952b010889a.
  • Loading branch information
khwilliamson committed Jan 20, 2023
1 parent d50ec2b commit 0aa4f18
Showing 1 changed file with 8 additions and 9 deletions.
17 changes: 8 additions & 9 deletions locale.c
Expand Up @@ -1147,9 +1147,9 @@ S_setlocale_from_aggregate_LC_ALL(pTHX_ const char * locale, const line_t line)

if (*p++ != '=') {
locale_panic_(Perl_form(aTHX_
"(%" LINE_Tf "): Unexpected character in locale"
" category name '%s<-- HERE",
line, get_displayable_string(s, p - 1, 0)));
"Unexpected character in locale category name '%s"
"<-- HERE",
get_displayable_string(s, p - 1, 0)));
}

/* Parse through the locale name */
Expand All @@ -1159,9 +1159,8 @@ S_setlocale_from_aggregate_LC_ALL(pTHX_ const char * locale, const line_t line)
}
if (UNLIKELY( p < e && *p != ';')) {
locale_panic_(Perl_form(aTHX_
"(%" LINE_Tf "): Unexpected character in locale"
"Unexpected character in locale name '%s<-- HERE",
line, get_displayable_string(s, p, 0)));
get_displayable_string(s, p, 0)));
}

const char * name_end = p;
Expand Down Expand Up @@ -1285,10 +1284,10 @@ S_emulate_setlocale_i(pTHX_
const char * locale_on_entry = querylocale_i(index);

DEBUG_Lv(PerlIO_printf(Perl_debug_log,
"Entering emulate_setlocale_i, called from %" LINE_Tf
"; input= category %d (%s), mask=0x%x, new locale=\"%s\","
" current locale=\"%s\", index=%d, object=%p\n",
line, categories[index], category_names[index], mask,
"emulate_setlocale_i input=%d (%s), mask=0x%x,"
" new locale=\"%s\", current locale=\"%s\","
"index=%d, object=%p\n",
categories[index], category_names[index], mask,
((new_locale == NULL) ? "(nil)" : new_locale),
locale_on_entry, index, entry_obj));

Expand Down

0 comments on commit 0aa4f18

Please sign in to comment.