From 75d43e96c14b942bfcfb92795255377905baf38d Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Wed, 24 Jul 2013 18:14:06 -0700 Subject: [PATCH] pp_hot.c: Show lengths in -Dr output for minlen optimisation --- pp_hot.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/pp_hot.c b/pp_hot.c index e07b1b9..ca95830 100644 --- a/pp_hot.c +++ b/pp_hot.c @@ -1384,7 +1384,9 @@ PP(pp_match) } if (RX_MINLEN(rx) >= 0 && (STRLEN)RX_MINLEN(rx) > len) { - DEBUG_r(PerlIO_printf(Perl_debug_log, "String shorter than min possible regex match\n")); + DEBUG_r(PerlIO_printf(Perl_debug_log, "String shorter than min possible regex match (%" + UVuf" < %"IVdf")\n", + (UV)len, (IV)RX_MINLEN(rx))); goto nope; } -- 2.7.4