This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Reorder two 'if' clauses
authorKarl Williamson <khw@cpan.org>
Fri, 30 Jun 2017 19:19:10 +0000 (13:19 -0600)
committerKarl Williamson <khw@cpan.org>
Thu, 13 Jul 2017 03:14:26 +0000 (21:14 -0600)
This is purely to get vertical line up that easier to see of slightly
differently spelled tests

utf8.c

diff --git a/utf8.c b/utf8.c
index ef37514..1735b81 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -213,9 +213,9 @@ Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, const UV flags)
             Perl_warner(aTHX_ packWARN(WARN_DEPRECATED),
                         cp_above_legal_max, uv, MAX_NON_DEPRECATED_CP);
         }
-        if (       (flags & UNICODE_WARN_SUPER)
-            || (   UNICODE_IS_PERL_EXTENDED(uv)
-                && (flags & UNICODE_WARN_PERL_EXTENDED)))
+        if (      (flags & UNICODE_WARN_SUPER)
+            || (  (flags & UNICODE_WARN_PERL_EXTENDED)
+                && UNICODE_IS_PERL_EXTENDED(uv)))
         {
             Perl_ck_warner_d(aTHX_ packWARN(WARN_NON_UNICODE),
 
@@ -226,8 +226,8 @@ Perl_uvoffuni_to_utf8_flags(pTHX_ U8 *d, UV uv, const UV flags)
              uv);
         }
         if (       (flags & UNICODE_DISALLOW_SUPER)
-            || (   UNICODE_IS_PERL_EXTENDED(uv)
-                && (flags & UNICODE_DISALLOW_PERL_EXTENDED)))
+            || (   (flags & UNICODE_DISALLOW_PERL_EXTENDED)
+                &&  UNICODE_IS_PERL_EXTENDED(uv)))
         {
             return NULL;
         }