const const bad bad.

[perl5.git] / utf8.c

diff --git a/utf8.c b/utf8.c
index 28947a3..1b8c168 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -1237,7 +1237,7 @@ Perl_to_uni_lower_lc(pTHX_ U32 c)
 }
 
 bool
-S_is_utf8_common(pTHX_ const U8 const *p, SV **swash,
+S_is_utf8_common(pTHX_ const U8 *const p, SV **swash,
                 const char *const swashname)
 {
     if (!is_utf8_char(p))