In perl.git, the branch blead has been updated <https://perl5.git.perl.org/perl.git/commitdiff/6ec573cf82ef04177ad79214c84036c97565490c?hp=5e20fb07d2b8373f53f053086ba668649763de9a>
- Log ----------------------------------------------------------------- commit 6ec573cf82ef04177ad79214c84036c97565490c Author: Karl Williamson <[email protected]> Date: Tue Apr 17 13:53:25 2018 -0600 t/run/locale.t; Suppress wide char warnings If there is an error, the characters involved are simply printed from within fresh_perl. It those characters are wide, we also get Wide char warnings, which clouds the issue. ----------------------------------------------------------------------- Summary of changes: t/run/locale.t | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/t/run/locale.t b/t/run/locale.t index bae51585d1..48c0ae332e 100644 --- a/t/run/locale.t +++ b/t/run/locale.t @@ -94,6 +94,7 @@ if ($non_C_locale) { setlocale(LC_NUMERIC, "$_") or next; my $s = sprintf "%g %g", 3.1, 3.1; next if $s eq '3.1 3.1' || $s =~ /^(3.+1) \1$/; + no warnings "utf8"; print "$_ $s\n"; } EOF @@ -108,6 +109,7 @@ EOF my $in = 4.2; my $s = sprintf "%g", $in; # avoid any constant folding bugs next if $s eq "4.2"; + no warnings "utf8"; print "$_ $s\n"; } EOF @@ -185,6 +187,7 @@ EOF { fresh_perl_is(<<'EOF', ",,", { eval $switches }, use POSIX; + no warnings "utf8"; print localeconv()->{decimal_point}; use locale; print localeconv()->{decimal_point}; @@ -279,6 +282,7 @@ EOF \$a = sprintf("%.2f", \$i); require version; \$b = sprintf("%.2f", \$i); + no warnings "utf8"; print ".\$a \$b" unless \$a eq \$b EOF "", { eval $switches }, "version does not clobber version"); @@ -291,6 +295,7 @@ EOF \$a = sprintf("%.2f", \$i); eval "use v5.0.0"; \$b = sprintf("%.2f", \$i); + no warnings "utf8"; print "\$a \$b" unless \$a eq \$b EOF "", { eval $switches }, "version does not clobber version (via eval)"); @@ -336,6 +341,7 @@ EOF if (! fresh_perl_is(<<"EOF", "$difference", { eval $switches }, if (\$ENV{LC_ALL} ne "invalid") { # Make the test pass if the sh didn't accept the ENV set + no warnings "utf8"; print "$difference\n"; exit 0; } @@ -363,6 +369,7 @@ EOF if (! fresh_perl_is(<<"EOF", 4.2, { eval $switches }, if (\$ENV{LC_ALL} ne "invalid") { + no warnings "utf8"; print "$difference\n"; exit 0; } -- Perl5 Master Repository
