This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
lib/locale.t: Change acceptable fail % for Win32
authorKarl Williamson <khw@cpan.org>
Fri, 6 Jun 2014 16:29:28 +0000 (10:29 -0600)
committerKarl Williamson <khw@cpan.org>
Sat, 7 Jun 2014 16:24:58 +0000 (10:24 -0600)
Commit 375f5f0648cdf36c13cb11499b332c99c710d138 fixed the Windows ctype
functions to follow POSIX rules, so there is no need to make an
exception for them.

lib/locale.t

index 38b0d09..e9ed1a8 100644 (file)
@@ -31,12 +31,9 @@ my $debug = $ENV{PERL_DEBUG_FULL_TEST} // 0;
 
 # Certain tests have been shown to be problematical for a few locales.  Don't
 # fail them unless at least this percentage of the tested locales fail.
-# Some Windows machines are defective in every locale but the C, calling \t
-# printable; superscripts to be digits, etc.  See
-# http://markmail.org/message/5jwam4xsx4amsdnv.  Also on AIX machines, many
-# locales call a no-break space a graphic.
+# On AIX machines, many locales call a no-break space a graphic.
 # (There aren't 1000 locales currently in existence, so 99.9 works)
-my $acceptable_failure_percentage = ($^O =~ / ^ ( MSWin32 | AIX ) $ /ix)
+my $acceptable_failure_percentage = ($^O =~ / ^ ( AIX ) $ /ix)
                                      ? 99.9
                                      : 5;