In perl.git, the branch blead has been updated
<https://perl5.git.perl.org/perl.git/commitdiff/238fb9b3844424a58811fb7947219a2c016ee3b0?hp=775b8798b9203755e8204f5f027e32f396afe0f7>
- Log -----------------------------------------------------------------
commit 238fb9b3844424a58811fb7947219a2c016ee3b0
Author: James E Keenan <jkee...@cpan.org>
Date: Sun Oct 28 20:29:14 2018 -0400
Note locales available and those used in tests.
This will facilitate diagnosis of problems on platforms where tests in
this file are failing.
-----------------------------------------------------------------------
Summary of changes:
t/run/locale.t | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/t/run/locale.t b/t/run/locale.t
index ae5abca009..b51c2d2a13 100644
--- a/t/run/locale.t
+++ b/t/run/locale.t
@@ -23,6 +23,7 @@ use Config;
my $have_strtod = $Config{d_strtod} eq 'define';
my @locales = find_locales( [ 'LC_ALL', 'LC_CTYPE', 'LC_NUMERIC' ]);
skip_all("no locales available") unless @locales;
+note("locales available: @locales");
my $debug = 0;
my $switches = "";
@@ -73,6 +74,7 @@ foreach my $locale (@locales) {
}
if ($non_C_locale) {
+ note("using non-C locale '$non_C_locale'");
setlocale(LC_NUMERIC, $non_C_locale);
isnt(setlocale(LC_NUMERIC), "C", "retrieving current non-C LC_NUMERIC
doesn't give 'C'");
setlocale(LC_ALL, $non_C_locale);
@@ -80,7 +82,7 @@ if ($non_C_locale) {
my @test_numeric_locales = @locales;
- # Skip this locale on these cywgwin versions as the returned radix
character
+ # Skip this locale on these cygwin versions as the returned radix character
# length is wrong
if ( $^O eq 'cygwin'
&& version->new(($Config{'osvers'} =~ /^(\d+(?:\.\d+)+)/)[0]) le
v2.4.1)
--
Perl5 Master Repository
