From: Steve Peters <steve@fisharerojo.org>
Date: Fri, 29 Sep 2006 13:55:55 +0000 (+0000)
Subject: Fix debug format in regcomp.c that was failing under
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8d8756e7e9233ee3d56235e7432a5a3acbe03daf;p=p5sagit%2Fp5-mst-13.2.git

Fix debug format in regcomp.c that was failing under
-Doptimize="-g"

p4raw-id: //depot/perl@28901
---

diff --git a/regcomp.c b/regcomp.c
index 1a7c08e..063549e 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -3710,7 +3710,7 @@ Perl_pregcomp(pTHX_ char *exp, char *xend, PMOP *pm)
         if (ptr && SvIOK(*ptr)) {
             const regexp_engine *eng=INT2PTR(regexp_engine*,SvIV(*ptr));
             DEBUG_COMPILE_r({
-                PerlIO_printf(Perl_debug_log, "Using engine %"IVxf"\n",
+                PerlIO_printf(Perl_debug_log, "Using engine %"UVxf"\n",
                     SvIV(*ptr));
             });            
             return CALL_FPTR((eng->regcomp))(aTHX_ exp, xend, pm);