This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
utf8.c: Fix comment
authorKarl Williamson <khw@cpan.org>
Fri, 25 Sep 2015 04:36:41 +0000 (22:36 -0600)
committerKarl Williamson <khw@cpan.org>
Tue, 6 Oct 2015 15:33:43 +0000 (09:33 -0600)
utf8.c

diff --git a/utf8.c b/utf8.c
index 571c451..d75e481 100644 (file)
--- a/utf8.c
+++ b/utf8.c
@@ -714,7 +714,8 @@ Perl_utf8n_to_uvchr(pTHX_ const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags)
                sv = sv_2mortal(Perl_newSVpvf(aTHX_ "Code point 0x%04"UVXf" is not Unicode, may not be portable", uv));
                pack_warn = packWARN(WARN_NON_UNICODE);
            }
-#ifndef EBCDIC /* EBCDIC always allows FE, FF */
+#ifndef EBCDIC /* Can never have the equivalent of FE nor FF on EBCDIC, since
+                   not representable in UTF-EBCDIC */
 
             /* The first byte being 0xFE or 0xFF is a subset of the SUPER code
              * points.  We test for these after the regular SUPER ones, and