This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
const const bad bad.
authorNicholas Clark <nick@ccl4.org>
Sun, 30 Oct 2005 21:53:03 +0000 (21:53 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 30 Oct 2005 21:53:03 +0000 (21:53 +0000)
gcc bad bad too, because it didn't grumble one bit. (or two, for that
matter).

p4raw-id: //depot/perl@25910

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
 }
 
 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))
                 const char *const swashname)
 {
     if (!is_utf8_char(p))