This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Don't test strftime without LC_TIME
authorKarl Williamson <khw@cpan.org>
Tue, 17 Jun 2014 18:20:39 +0000 (12:20 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 18 Jun 2014 02:21:39 +0000 (20:21 -0600)
On netbsd, not all locales have an LC_TIME, and so they are all failing
the tests for that.  This is true even though they have LC_ALL.  I don't
know if that is legal or not, but Perl can't do anything about it, so
this skips the LC_TIME tests for locales that don't have it.

lib/locale.t

index 225ccbf..dca74bd 100644 (file)
@@ -1874,8 +1874,9 @@ foreach my $Locale (@Locale) {
         $ok18 = $j eq sprintf("%g:%g", $h, $i);
     }
 
-    { # These tests aren't affected by :not_characters
-
+    $ok19 = $ok20 = 1;
+    if (setlocale(&POSIX::LC_TIME, $Locale)) { # These tests aren't affected by
+                                               # :not_characters
         my @times = CORE::localtime();
 
         use locale;