This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
toke.c: Fix comment
authorKarl Williamson <khw@cpan.org>
Tue, 29 Mar 2016 03:14:58 +0000 (21:14 -0600)
committerKarl Williamson <khw@cpan.org>
Mon, 9 May 2016 15:16:34 +0000 (09:16 -0600)
toke.c

diff --git a/toke.c b/toke.c
index e16d4b1..7daa4a7 100644 (file)
--- 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