In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/bb02e0c10a57ab28b9ec6ca218c7aa6aac53a90c?hp=a9130ea99fdac62c115e05351c85a25ba70f3051>
- Log ----------------------------------------------------------------- commit bb02e0c10a57ab28b9ec6ca218c7aa6aac53a90c Author: Karl Williamson <[email protected]> Date: Sat Dec 21 16:48:48 2013 -0700 perlio.h: Indent nested #if I found this helpful in tracking down an issue, being able to conveniently pair an #endif with its corresponding #if. The rest of the file could stand this sort of treatment, but not from me now. M perlio.h commit 662399e759ec005e2e221482081ff4f765d22b36 Author: Karl Williamson <[email protected]> Date: Sat Dec 21 13:04:44 2013 -0700 lib/locale.t: Pass AIX failures Some AIX locales call a no-break space "graphic". Rather than fail AIX for this, this commit adopts the same approach used for MSWin, which similarly has most locales containing some errors. And that is to pass it if any locales at all are correct. Ideally the vendors wouldn't make broken locales, but this allows us to test for full legality on other systems. M lib/locale.t commit 8321c25f6dc33c2b29fa1bc075a6cf3e412fb1ae Author: Karl Williamson <[email protected]> Date: Sat Dec 21 13:04:17 2013 -0700 lib/locale.t: Typo in comment M lib/locale.t ----------------------------------------------------------------------- Summary of changes: lib/locale.t | 11 +++++++---- perlio.h | 16 ++++++++-------- 2 files changed, 15 insertions(+), 12 deletions(-) diff --git a/lib/locale.t b/lib/locale.t index f78d0c8..fee2fc8 100644 --- a/lib/locale.t +++ b/lib/locale.t @@ -30,11 +30,14 @@ 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 in every locale but the C, -# calling \t printable; superscripts to be digits, etc. See -# http://markmail.org/message/5jwam4xsx4amsdnv +# 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. # (There aren't 1000 locales currently in existence, so 99.9 works) -my $acceptable_fold_failure_percentage = $^O eq 'MSWin32' ? 99.9 : 5; +my $acceptable_fold_failure_percentage = ($^O =~ / ^ ( MSWin32 | AIX ) $ /ix) + ? 99.9 + : 5; # The list of test numbers of the problematic tests. my @problematical_tests; diff --git a/perlio.h b/perlio.h index c55cbf6..34968c3 100644 --- a/perlio.h +++ b/perlio.h @@ -132,19 +132,19 @@ PERL_EXPORT_C void PerlIO_clone(pTHX_ PerlInterpreter *proto, * can set how it wants. */ -#ifdef PERL_CORE +# ifdef PERL_CORE /* Make a choice for perl core code - currently this is set to try and catch lingering raw stdio calls. This is a known issue with some non UNIX ports which still use "native" stdio features. */ -#ifndef PERLIO_NOT_STDIO -#define PERLIO_NOT_STDIO 1 -#endif -#else -#ifndef PERLIO_NOT_STDIO -#define PERLIO_NOT_STDIO 0 -#endif +# ifndef PERLIO_NOT_STDIO +# define PERLIO_NOT_STDIO 1 +# endif + #else +# ifndef PERLIO_NOT_STDIO +# define PERLIO_NOT_STDIO 0 +# endif #endif #ifdef PERLIO_NOT_STDIO -- Perl5 Master Repository
