summaryrefslogtreecommitdiff
path: root/sv.c
diff options
context:
space:
mode:
authorJames E Keenan <jkeenan@cpan.org>2021-03-28 14:23:41 +0000
committerJames E Keenan <jkeenan@cpan.org>2021-03-31 21:19:03 -0400
commitefceac507985adfedfc573aedee5bd69da96ecb0 (patch)
tree6df2ed63819ec6c197133b70a2c7dde94070c676 /sv.c
parent77c0161925c445a429e3aa990fe5b00af24f43f5 (diff)
downloadperl-efceac507985adfedfc573aedee5bd69da96ecb0.tar.gz
Silence one build-time warning
Observed in clang 9 and 10. Partial solution for https://github.com/Perl/perl5/issues/17015
Diffstat (limited to 'sv.c')
-rw-r--r--sv.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/sv.c b/sv.c
index b1a95a80ca..c040d9a8a4 100644
--- a/sv.c
+++ b/sv.c
@@ -12513,7 +12513,7 @@ Perl_sv_vcatpvfn_flags(pTHX_ SV *const sv, const char *const pat, const STRLEN p
&& q == fmtstart + 1 /* plain %d, not %....d */
&& patend >= fmtstart + sizeof(UTF8f) - 1 /* long enough */
&& *q == '%'
- && strnEQ(q + 1, UTF8f + 2, sizeof(UTF8f) - 3))
+ && strnEQ(q + 1, (UTF8f) + 2, sizeof(UTF8f) - 3))
{
/* The argument has already gone through cBOOL, so the cast
is safe. */