This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Add comment
authorKarl Williamson <khw@cpan.org>
Thu, 13 Nov 2014 17:59:34 +0000 (10:59 -0700)
committerKarl Williamson <khw@cpan.org>
Mon, 24 Nov 2014 20:43:07 +0000 (13:43 -0700)
toke.c

diff --git a/toke.c b/toke.c
index 059c463..9a01103 100644 (file)
--- a/toke.c
+++ b/toke.c
@@ -8588,7 +8588,9 @@ S_scan_ident(pTHX_ char *s, char *dest, STRLEN destlen, I32 ck_uni)
  *
  *      Because all ASCII characters have the same representation whether
  *      encoded in UTF-8 or not, we can use the foo_A macros below and '\0' and
- *      '{' without knowing if is UTF-8 or not */
+ *      '{' without knowing if is UTF-8 or not.
+ * EBCDIC already uses the rules that ASCII platforms will use after the
+ * deprecation cycle; see comment below about the deprecation. */
 #ifdef EBCDIC
 #   define VALID_LEN_ONE_IDENT(s, is_utf8)                                    \
     (isGRAPH_A(*(s)) || ((is_utf8)                                            \