In perl.git, the branch smoke-me/khw-alpine has been updated <https://perl5.git.perl.org/perl.git/commitdiff/428a2d898b65fb1eb0d85080e60b830e9879ca28?hp=8fcd06bbe44936beb2ad9d288b5dd2f348b2d77e>
- Log ----------------------------------------------------------------- commit 428a2d898b65fb1eb0d85080e60b830e9879ca28 Author: Karl Williamson <[email protected]> Date: Wed Feb 6 22:25:48 2019 -0700 warnings ----------------------------------------------------------------------- Summary of changes: t/lib/warnings/regexec | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/t/lib/warnings/regexec b/t/lib/warnings/regexec index b9e53c9808..16f57576d2 100644 --- a/t/lib/warnings/regexec +++ b/t/lib/warnings/regexec @@ -172,6 +172,7 @@ setlocale(&POSIX::LC_CTYPE, $utf8_locales[0]); EXPECT ######## # NAME \b{} in non-UTF-8 locale +# OPTION regex eval { require POSIX; POSIX->import("locale_h") }; if ($@) { print("SKIPPED\n# no POSIX\n"),exit; @@ -183,10 +184,11 @@ setlocale(&POSIX::LC_CTYPE, "C"); no warnings 'locale'; "a" =~ /\b{gcb}/l; EXPECT -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 8. -Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 8. +Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 9. +Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 9. ######## # NAME \b{} in UTF-8 locale +# OPTION regex require '../loc_tools.pl'; unless (locales_enabled()) { print("SKIPPED\n# locales not available\n"),exit; @@ -208,13 +210,14 @@ 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. +Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 18. +Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 18. +Use of \b{} or \B{} for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 18. ######## # NAME (?[ ]) in non-UTF-8 locale +# OPTION regex require '../loc_tools.pl'; unless (locales_enabled()) { print("SKIPPED\n# locales not available\n"),exit; @@ -233,14 +236,14 @@ setlocale(&POSIX::LC_CTYPE, "C"); ":" =~ /(?[ \: ])/; no warnings 'locale'; EXPECT -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 13. -Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 13. Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 14. Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 14. Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 15. Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 15. Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 16. Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 16. +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 17. +Use of (?[ ]) for non-UTF-8 locale is wrong. Assuming a UTF-8 locale at - line 17. ######## # NAME (?[ ]) in UTF-8 locale require '../loc_tools.pl'; -- Perl5 Master Repository
