This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence a cast warning
authorRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 6 Nov 2006 09:30:41 +0000 (09:30 +0000)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Mon, 6 Nov 2006 09:30:41 +0000 (09:30 +0000)
p4raw-id: //depot/perl@29208

regcomp.c

index 00c4838..80d7eec 100644 (file)
--- a/regcomp.c
+++ b/regcomp.c
@@ -7614,7 +7614,7 @@ S_reginsert(pTHX_ RExC_state_t *pRExC_state, U8 op, regnode *opnd, U32 depth)
     dst = RExC_emit;
     if (RExC_open_parens) {
         int paren;
-        DEBUG_PARSE_FMT("inst"," - %d",RExC_npar);
+        DEBUG_PARSE_FMT("inst"," - %"IVdf,RExC_npar);
         for ( paren=0 ; paren < RExC_npar ; paren++ ) {
             if ( RExC_open_parens[paren] >= opnd ) {
                 DEBUG_PARSE_FMT("open"," - %d",size);