summaryrefslogtreecommitdiff
path: root/locale.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2018-03-02 12:13:55 -0700
committerKarl Williamson <khw@cpan.org>2018-03-02 12:37:16 -0700
commit578a6a873a320fe64743b060dbd467f1865d205c (patch)
tree6eb0156a51297f8bde040c9ad938125ff670af7b /locale.c
parentd8255c827dc80db97c8439ea38afc130902a7c1e (diff)
downloadperl-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.c5
1 files changed, 2 insertions, 3 deletions
diff --git a/locale.c b/locale.c
index ead73e5554..d6d91ea2b9 100644
--- a/locale.c
+++ b/locale.c
@@ -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_