This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Skip test on Basque locales on Mac OS X 10.5
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 21 Oct 2007 07:51:14 +0000 (07:51 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Sun, 21 Oct 2007 07:51:14 +0000 (07:51 +0000)
p4raw-id: //depot/perl@32153

lib/locale.t

index 783d0bd..aa8aa07 100644 (file)
@@ -454,9 +454,10 @@ if (-x "/usr/bin/locale" && open(LOCALES, "/usr/bin/locale -a 2>/dev/null|")) {
 setlocale(LC_ALL, "C");
 
 if ($^O eq 'darwin') {
-    # Darwin 8/Mac OS X 10.4 has bad Basque locales: perl bug #35895,
+    # Darwin 8/Mac OS X 10.4 and 10.5 have bad Basque locales: perl bug #35895,
     # Apple bug ID# 4139653. It also has a problem in Byelorussian.
-    if ($Config{osvers} ge '8' and $Config{osvers} lt '9') {
+    (my $v) = $Config{osvers} =~ /^(\d+)/;
+    if ($v >= 8 and $v < 10) {
        debug "# Skipping eu_ES, be_BY locales -- buggy in Darwin\n";
        @Locale = grep ! m/^(eu_ES|be_BY.CP1131$)/, @Locale;
     }