diff options
author | Karl Williamson <khw@cpan.org> | 2022-12-08 13:44:22 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2023-01-05 20:05:48 -0700 |
commit | c61aa5ac1a24cf1d8ed263d289572db9b6b04248 (patch) | |
tree | b09e5cea22a6768a609833156908a5ed3e6d00fa /locale.c | |
parent | 8771ee452dafdaf695956865631e6de4c9062634 (diff) | |
download | perl-c61aa5ac1a24cf1d8ed263d289572db9b6b04248.tar.gz |
locale.c: Tighten assertion
The parameter must not be LC_ALL, so assert that additionally.
Diffstat (limited to 'locale.c')
-rw-r--r-- | locale.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -4146,7 +4146,7 @@ S_my_langinfo_i(pTHX_ const char * retval = NULL; PERL_ARGS_ASSERT_MY_LANGINFO_I; - assert(cat_index <= NOMINAL_LC_ALL_INDEX); + assert(cat_index < NOMINAL_LC_ALL_INDEX); DEBUG_Lv(PerlIO_printf(Perl_debug_log, "Entering my_langinfo item=%ld, using locale %s\n", |