summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2014-03-18 16:10:59 +0000
committerDavid Mitchell <davem@iabyn.com>2014-03-19 18:25:54 +0000
commitfe4f3442a740e4a233ab9610229aca3f4cf6a21f (patch)
treebe4fb63644d03903f99bd68e46dd06fc3571c0ed
parent8f10278a677a11d641ea4247a9d28b058d11c78a (diff)
downloadperl-fe4f3442a740e4a233ab9610229aca3f4cf6a21f.tar.gz
re_intuit_start(): change !ml_anch debugging msg
When MBOL (/^.../m) matching is skipped, the debugging output looks like: Starting position does not contradict /^/m... which sounds a bit like the \n test *was* done and passed, rather than the test being skipped. Change the message to: (multiline anchor test skipped)
-rw-r--r--regexec.c3
1 files changed, 1 insertions, 2 deletions
diff --git a/regexec.c b/regexec.c
index 6311cb3910..54400f17ac 100644
--- a/regexec.c
+++ b/regexec.c
@@ -1201,8 +1201,7 @@ Perl_re_intuit_start(pTHX_
}
else {
DEBUG_EXECUTE_r(PerlIO_printf(Perl_debug_log,
- " Starting position does not contradict /%s^%s/m...\n",
- PL_colors[0], PL_colors[1]));
+ " (multiline anchor test skipped)\n"));
}
success_at_start: