From: Father Chrysostomos <sprout@cpan.org>
Date: Thu, 25 Jul 2013 01:14:06 +0000 (-0700)
Subject: pp_hot.c: Show lengths in -Dr output for minlen optimisation
X-Git-Tag: upstream/5.20.0~2131
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=75d43e96c14b942bfcfb92795255377905baf38d;p=platform%2Fupstream%2Fperl.git

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
--- 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;
     }