This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Renumber cases in switch
authorKarl Williamson <public@khwilliamson.com>
Mon, 10 Jan 2011 01:47:18 +0000 (18:47 -0700)
committerKarl Williamson <public@khwilliamson.com>
Mon, 10 Jan 2011 02:29:03 +0000 (19:29 -0700)
This tidies things up after several of them were removed.

utf8.c

diff --git a/utf8.c b/utf8.c
index 3615fdd..eee5771 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -547,9 +547,9 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
 #define UTF8_WARN_EMPTY                                 1
 #define UTF8_WARN_CONTINUATION                  2
 #define UTF8_WARN_NON_CONTINUATION              3
-#define UTF8_WARN_SHORT                                 5
-#define UTF8_WARN_OVERFLOW                      6
-#define UTF8_WARN_LONG                          8
+#define UTF8_WARN_SHORT                                 4
+#define UTF8_WARN_OVERFLOW                      5
+#define UTF8_WARN_LONG                          6
 
     if (curlen == 0 &&
        !(flags & UTF8_ALLOW_EMPTY)) {