This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Clarify that count is bytes not unicode characters
authorKarl Williamson <khw@khw-desktop.(none)>
Fri, 15 Jan 2010 04:21:37 +0000 (21:21 -0700)
committerCraig A. Berry <craigberry@mac.com>
Sat, 29 May 2010 15:40:18 +0000 (10:40 -0500)
regexec.c

index 8c68639..307e274 100644 (file)
--- a/regexec.c
+++ b/regexec.c
@@ -2200,7 +2200,7 @@ Perl_regexec_flags(pTHX_ REGEXP * const rx, char *stringarg, register char *stre
                RE_PV_QUOTED_DECL(quoted,do_utf8,PERL_DEBUG_PAD_ZERO(1),
                    s,strend-s,60);
                PerlIO_printf(Perl_debug_log,
-                   "Matching stclass %.*s against %s (%d chars)\n",
+                   "Matching stclass %.*s against %s (%d bytes)\n",
                    (int)SvCUR(prop), SvPVX_const(prop),
                     quoted, (int)(strend - s));
            }