develooper Front page | perl.perl5.changes | Postings from February 2019

[perl.git] branch smoke-me/khw-alpine updated.v5.29.7-97-g428a2d898b

From:
Karl Williamson
Date:
February 7, 2019 05:26
Subject:
[perl.git] branch smoke-me/khw-alpine updated.v5.29.7-97-g428a2d898b
Message ID:
E1grcCC-0005ry-Ey@git.dc.perl.space
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 <khw@cpan.org>
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



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About