diff options
author | Karl Williamson <khw@cpan.org> | 2018-03-02 12:13:55 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-03-02 12:37:16 -0700 |
commit | 578a6a873a320fe64743b060dbd467f1865d205c (patch) | |
tree | 6eb0156a51297f8bde040c9ad938125ff670af7b /locale.c | |
parent | d8255c827dc80db97c8439ea38afc130902a7c1e (diff) | |
download | perl-578a6a873a320fe64743b060dbd467f1865d205c.tar.gz |
Reword warning for deviations from UTF-8 locales
Some locales are UTF-8, but not exactly what Perl is expecting. Revise
the message raised in this circumstance.
Originally I thought these were violations of Unicode, but based on
feedback from Craig Berry, I came to realize that these are legitimate
interpretations of the Unicode standard. But perl persists with its own
interpretation that differs from these, hence the warning.
Diffstat (limited to 'locale.c')
-rw-r--r-- | locale.c | 5 |
1 files changed, 2 insertions, 3 deletions
@@ -1656,10 +1656,9 @@ S_new_ctype(pTHX_ const char *newctype) if (UNLIKELY(bad_count) && PL_in_utf8_CTYPE_locale) { PL_warn_locale = Perl_newSVpvf(aTHX_ "Locale '%s' contains (at least) the following characters" - " which have\nnon-standard meanings: %s\nThe Perl program" - " will use the standard meanings", + " which have\nunexpected meanings: %s\nThe Perl program" + " will use the expected meanings", newctype, bad_chars_list); - } else { PL_warn_locale = Perl_newSVpvf(aTHX_ |