summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorYves Orton <demerphq@gmail.com>2006-09-19 03:37:19 +0200
committerH.Merijn Brand <h.m.brand@xs4all.nl>2006-09-19 06:56:36 +0000
commitfc8cd66c26827f6c2ee1aa00ab2d3b3c320a4a28 (patch)
treeb426e51c41b332c31c05ec65e7570a4cc620f20c /regexec.c
parenta7ae1e4a956bbd5ffa44d286e0591bf4c0e7c341 (diff)
downloadperl-fc8cd66c26827f6c2ee1aa00ab2d3b3c320a4a28.tar.gz
Re: \N{...} in regular expression [PATCH]
Message-ID: <9b18b3110609181637m796d6c16o1b2741edc5f09eb2@mail.gmail.com> p4raw-id: //depot/perl@28868
Diffstat (limited to 'regexec.c')
-rw-r--r--regexec.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regexec.c b/regexec.c
index 1a86e4997a..679e31fc36 100644
--- a/regexec.c
+++ b/regexec.c
@@ -527,7 +527,7 @@ Perl_re_intuit_start(pTHX_ regexp *prog, SV *sv, char *strpos,
DEBUG_OPTIMISE_r({
PerlIO_printf(Perl_debug_log, "fbm_instr len=%d str=<%.*s>\n",
(int)(end_point - start_point),
- (int)(end_point - start_point),
+ (int)(end_point - start_point) > 20 ? 20 : (int)(end_point - start_point),
start_point);
});