develooper Front page | perl.perl5.changes | Postings from March 2018

[perl.git] branch blead updated. v5.27.9-114-g0f23a95ef0

From:
Karl Williamson
Date:
March 6, 2018 06:40
Subject:
[perl.git] branch blead updated. v5.27.9-114-g0f23a95ef0
Message ID:
E1et6HG-00027U-KM@git.dc.perl.space
In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/0f23a95ef0b32d74f2e94142b4dd46d4de3fc309?hp=642ef05ea76f32b1c1dabe18f1f142b244191008>

- Log -----------------------------------------------------------------
commit 0f23a95ef0b32d74f2e94142b4dd46d4de3fc309
Author: Karl Williamson <khw@cpan.org>
Date:   Mon Mar 5 23:37:55 2018 -0700

    t/run/locale.t: Fix skip count; uninit warning
    
    Spotted by Tony Cook

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

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

diff --git a/t/run/locale.t b/t/run/locale.t
index f1bb6f2ee5..b8778f1583 100644
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -439,6 +439,7 @@ SKIP: {
             $invalid_string .= ";" if $invalid_string ne "";
             $invalid_string .= "$category=foo_BAR";
 
+            next unless $non_C_locale;
             $valid_string .= ";" if $valid_string ne "";
             $valid_string .= "$category=$non_C_locale";
         }
@@ -452,7 +453,7 @@ EOF
         {});
     is ($?, 0, "In setting complicated invalid LC_ALL, final individ category doesn't need a \';'");
 
-    skip("no non-C locale available", 2 ) unless $non_C_locale;
+    skip("no non-C locale available", 1 ) unless $non_C_locale;
     fresh_perl(<<"EOF",
             use locale;
             use POSIX;

-- 
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