diff options
| author | Karl Williamson <khw@cpan.org> | 2014-06-06 10:29:28 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2014-06-07 10:24:58 -0600 |
| commit | 4874c8de0e9c2e6f771c454fd6122d32a42e42b6 (patch) | |
| tree | 2362a51328e4ce29330c181b8dabe4b012ce3faa /lib | |
| parent | 1a4f13e16aff4779e298a3c8e3fdbfb4ea193cd1 (diff) | |
| download | perl-4874c8de0e9c2e6f771c454fd6122d32a42e42b6.tar.gz | |
lib/locale.t: Change acceptable fail % for Win32
Commit 375f5f0648cdf36c13cb11499b332c99c710d138 fixed the Windows ctype
functions to follow POSIX rules, so there is no need to make an
exception for them.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/locale.t | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/lib/locale.t b/lib/locale.t index 38b0d09fb3..e9ed1a86cf 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -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; |