diff options
Diffstat (limited to 't')
| -rw-r--r-- | t/lib/warnings/regexec | 14 | ||||
| -rw-r--r-- | t/run/locale.t | 6 |
2 files changed, 15 insertions, 5 deletions
diff --git a/t/lib/warnings/regexec b/t/lib/warnings/regexec index 28f4c1b0d6..05ca5836de 100644 --- a/t/lib/warnings/regexec +++ b/t/lib/warnings/regexec @@ -212,11 +212,15 @@ setlocale(&POSIX::LC_CTYPE, $utf8_locale); "abc def" =~ /\b{wb}.*?/; "abc def" =~ /\B{wb}.*?/; EXPECT -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 16. -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 16. -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 17. -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 17. -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 17. +OPTION regex +\AUse of \\b\{\} or \\B\{\} for non-UTF-8 locale is wrong\. Assuming a UTF-8 locale at - line 16\. +Use of \\b\{\} or \\B\{\} for non-UTF-8 locale is wrong\. Assuming a UTF-8 locale at - line 16\. +Use of \\b\{\} or \\B\{\} for non-UTF-8 locale is wrong\. Assuming a UTF-8 locale at - line 17\. +Use of \\b\{\} or \\B\{\} for non-UTF-8 locale is wrong\. Assuming a UTF-8 locale at - line 17\. +Use of \\b\{\} or \\B\{\} for non-UTF-8 locale is wrong\. Assuming a UTF-8 locale at - line 17\.(?: +Locale '.*' contains \(at least\) the following characters which have +unexpected meanings: .* +The Perl program will use the expected meanings; codeset=UTF-8)?\z ######## # NAME (?[ ]) in non-UTF-8 locale require '../loc_tools.pl'; diff --git a/t/run/locale.t b/t/run/locale.t index e888a65a67..00334354f4 100644 --- a/t/run/locale.t +++ b/t/run/locale.t @@ -21,6 +21,12 @@ BEGIN { } } use Config; + +if ($^O eq "aix" && ($Config{osvers} =~ /^(\d+)/)[0] < 7) { + # https://www.ibm.com/support/pages/apar/IV22174 + skip_all("old AIX setlocale is broken in some cases"); +} + use I18N::Langinfo qw(langinfo RADIXCHAR); my $have_strtod = $Config{d_strtod} eq 'define'; my $have_localeconv = defined $Config{d_locconv} && $Config{d_locconv} eq 'define'; |