develooper Front page | perl.perl5.changes | Postings from January 2019

[perl.git] branch smoke-me/khw-turkish updated.v5.29.7-46-gbfd501b718

From:
Karl Williamson
Date:
January 31, 2019 04:24
Subject:
[perl.git] branch smoke-me/khw-turkish updated.v5.29.7-46-gbfd501b718
Message ID:
E1gp3tU-0002Fm-Ja@git.dc.perl.space
In perl.git, the branch smoke-me/khw-turkish has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/bfd501b7180e039c7b1a485d21c620d7a7e0d268?hp=c7964c061e78c59f5f4fec9f57d173dda2943c26>

- Log -----------------------------------------------------------------
commit bfd501b7180e039c7b1a485d21c620d7a7e0d268
Author: Karl Williamson <khw@cpan.org>
Date:   Wed Jan 30 21:23:55 2019 -0700

    win32

-----------------------------------------------------------------------

Summary of changes:
 pp.c | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/pp.c b/pp.c
index f195b55dd6..b79a880dba 100644
--- a/pp.c
+++ b/pp.c
@@ -4196,16 +4196,16 @@ PP(pp_uc)
                     Size_t extra;
 
 		    *d = toUPPER_LATIN1_MOD(*s);
-		    if (LIKELY(   *d != LATIN_SMALL_LETTER_Y_WITH_DIAERESIS
+		    if (   LIKELY(*d != LATIN_SMALL_LETTER_Y_WITH_DIAERESIS)
 
 #ifdef USE_LOCALE_CTYPE
 
-                               && (LIKELY(   ! PL_in_utf8_turkic_locale
-                                          || ! IN_LC_RUNTIME(LC_CTYPE))
-                                          || *s != 'i')
+                        && (LIKELY(   ! PL_in_utf8_turkic_locale
+                                   || ! IN_LC_RUNTIME(LC_CTYPE))
+                                   || *s != 'i')
 #endif
 
-                    )) {
+                    ) {
                         continue;
                     }
 

-- 
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About