Fix debug format in regcomp.c that was failing under
Steve Peters [Fri, 29 Sep 2006 13:55:55 +0000 (13:55 +0000)]
-Doptimize="-g"

p4raw-id: //depot/perl@28901

regcomp.c

index 1a7c08e..063549e 100644 (file)
--- 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);