diff options
author | David Mitchell <davem@iabyn.com> | 2014-03-18 16:10:59 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2014-03-19 18:25:54 +0000 |
commit | fe4f3442a740e4a233ab9610229aca3f4cf6a21f (patch) | |
tree | be4fb63644d03903f99bd68e46dd06fc3571c0ed | |
parent | 8f10278a677a11d641ea4247a9d28b058d11c78a (diff) | |
download | perl-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.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -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: |