In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/8dcd53c92b8404f58bcb830289ff51133564961f?hp=7bb8f702f9ddfc65ea019531908a111e0d4d8351>

- Log -----------------------------------------------------------------
commit 8dcd53c92b8404f58bcb830289ff51133564961f
Author: Karl Williamson <[email protected]>
Date:   Wed Apr 18 17:44:04 2018 -0600

    t/run/locale.t: Silence perl warning
    
    This pattern that contains [:ascii:] is executed under /l, and can raise
    "wide character" warnings when matched against a UTF-8 string.  But we
    really are interested in strict ASCII, so /u works perfectly and avoids
    any such warnings.

-----------------------------------------------------------------------

Summary of changes:
 t/run/locale.t | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/t/run/locale.t b/t/run/locale.t
index 48c0ae332e..13bc25d7a7 100644
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -135,7 +135,7 @@ EOF
             # For utf8 locales with a non-ascii radix, it should be encoded as
             # UTF-8 with the internal flag so set.
             if (! defined $utf8_radix
-                && $radix =~ /[[:^ascii:]]/
+                && $radix =~ /[[:^ascii:]]/u  # /u because /l can raise 
warnings
                 && is_locale_utf8($_))
             {
                 $utf8_radix = $_;

-- 
Perl5 Master Repository

Reply via email to