summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2017-06-30 13:19:10 -0600
committerKarl Williamson <khw@cpan.org>2017-07-12 21:14:26 -0600
commit0a8a1a5b0c576b95f3c4a48a6912f86bcf34e281 (patch)
tree2344b5f1552a1b1b6f2be51d3d668b81af82bb2d
parent10dabba92c9a6ec2175b19c741c75d807eb02601 (diff)
downloadperl-0a8a1a5b0c576b95f3c4a48a6912f86bcf34e281.tar.gz
utf8.c: Reorder two 'if' clauses
This is purely to get vertical line up that easier to see of slightly differently spelled tests
-rw-r--r--utf8.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/utf8.c b/utf8.c
index ef375149c5..1735b810aa 100644
--- 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;
}