pp_hot.c: Show lengths in -Dr output for minlen optimisation

diff --git a/pp_hot.c b/pp_hot.c
index e07b1b9..ca95830 100644 (file)
--- 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;
     }