X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/61463a3eba401750124ace520c1bd60db4301a84..b3632c7127dbc8ae2250b65ba913d59a6e1caac6:/toke.c

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