From: Karl Williamson <khw@cpan.org>
Date: Tue, 29 Mar 2016 03:14:58 +0000 (-0600)
Subject: toke.c: Fix comment
X-Git-Tag: v5.25.1~126
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/b3632c7127dbc8ae2250b65ba913d59a6e1caac6

toke.c: Fix comment
---

diff --git a/toke.c b/toke.c
index e16d4b1..7daa4a7 100644
--- a/toke.c
+++ b/toke.c
@@ -8891,8 +8891,8 @@ S_scan_word(pTHX_ char *s, char *dest, STRLEN destlen, int allow_package, STRLEN
  *          2) '{'
  *     The final case currently doesn't get this far in the program, so we
  *     don't test for it.  If that were to change, it would be ok to allow it.
- *  c) When not under Unicode rules, any upper Latin1 character
- *  d) Otherwise, when unicode rules are used, all XIDS characters.
+ *  b) When not under Unicode rules, any upper Latin1 character
+ *  c) Otherwise, when unicode rules are used, all XIDS characters.
  *
  *      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