This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Move comment to where makes more sense
authorKarl Williamson <public@khwilliamson.com>
Tue, 26 Feb 2013 02:26:50 +0000 (19:26 -0700)
committerKarl Williamson <public@khwilliamson.com>
Thu, 29 Aug 2013 15:55:56 +0000 (09:55 -0600)
utf8.c

diff --git a/utf8.c b/utf8.c
index 3981fe8..e391f63 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -642,13 +642,13 @@ Perl_utf8n_to_uvuni(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
        goto malformed;
     }
 
+    /* Here is not a continuation byte, nor an invariant.  The only thing left
+     * is a start byte (possibly for an overlong) */
+
 #ifdef EBCDIC
     uv = NATIVE_UTF8_TO_I8(uv);
 #endif
 
-    /* Here is not a continuation byte, nor an invariant.  The only thing left
-     * is a start byte (possibly for an overlong) */
-
     /* Remove the leading bits that indicate the number of bytes in the
      * character's whole UTF-8 sequence, leaving just the bits that are part of
      * the value */