From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 30 Oct 2005 21:53:03 +0000 (+0000)
Subject: const const bad bad.
X-Git-Tag: v5.10.0~5548
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/5141f98e1f2246ec68c50524e948acf8e11514ab

const const bad bad.
gcc bad bad too, because it didn't grumble one bit. (or two, for that
matter).

p4raw-id: //depot/perl@25910
---

diff --git a/utf8.c b/utf8.c
index 28947a3..1b8c168 100644
--- 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))