|
 |
f6ea51 |
From 7714b11d11da2bfd0dc11638e9dd6836b6a32e90 Mon Sep 17 00:00:00 2001
|
|
|
f6ea51 |
From: Karl Williamson <khw@cpan.org>
|
|
|
f6ea51 |
Date: Mon, 11 Jun 2018 13:26:24 -0600
|
|
|
f6ea51 |
Subject: [PATCH] perl.h: Add parens around macro arguments
|
|
|
f6ea51 |
MIME-Version: 1.0
|
|
|
f6ea51 |
Content-Type: text/plain; charset=UTF-8
|
|
|
f6ea51 |
Content-Transfer-Encoding: 8bit
|
|
|
f6ea51 |
|
|
|
f6ea51 |
Arguments used within macros need to be parenthesized in case they are
|
|
|
f6ea51 |
called with an expression. This commit changes
|
|
|
f6ea51 |
_CHECK_AND_OUTPUT_WIDE_LOCALE_UTF8_MSG() to do that.
|
|
|
f6ea51 |
|
|
|
f6ea51 |
Petr Písař: Ported to 5.26.2 from upstream ff58ca57f844 commit.
|
|
|
f6ea51 |
|
|
|
f6ea51 |
Signed-off-by: Petr Písař <ppisar@redhat.com>
|
|
|
f6ea51 |
---
|
|
|
f6ea51 |
perl.h | 2 +-
|
|
|
f6ea51 |
1 file changed, 1 insertion(+), 1 deletion(-)
|
|
|
f6ea51 |
|
|
|
f6ea51 |
diff --git a/perl.h b/perl.h
|
|
|
f6ea51 |
index 1c613bc..d278c2a 100644
|
|
|
f6ea51 |
--- a/perl.h
|
|
|
f6ea51 |
+++ b/perl.h
|
|
|
f6ea51 |
@@ -5980,7 +5980,7 @@ typedef struct am_table_short AMTS;
|
|
|
f6ea51 |
# define _CHECK_AND_OUTPUT_WIDE_LOCALE_UTF8_MSG(s, send) \
|
|
|
f6ea51 |
STMT_START { /* Check if to warn before doing the conversion work */\
|
|
|
f6ea51 |
if (! PL_in_utf8_CTYPE_locale && ckWARN(WARN_LOCALE)) { \
|
|
|
f6ea51 |
- UV cp = utf8_to_uvchr_buf((U8 *) s, (U8 *) send, NULL); \
|
|
|
f6ea51 |
+ UV cp = utf8_to_uvchr_buf((U8 *) (s), (U8 *) (send), NULL); \
|
|
|
f6ea51 |
Perl_warner(aTHX_ packWARN(WARN_LOCALE), \
|
|
|
f6ea51 |
"Wide character (U+%" UVXf ") in %s", \
|
|
|
f6ea51 |
(cp == 0) \
|
|
|
f6ea51 |
--
|
|
|
f6ea51 |
2.14.4
|
|
|
f6ea51 |
|